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PLANO DA OBRA 


“INPUT” é uma obra editada em fascículos semanais, e cada 
conjunto de 15 fascículos compõe um volume. A capa para enca- 
dernação de cada volume estará à venda oportunamente. 


COMPLETE SUA COLEÇÃO 


Exemplares atrasados, até seis meses após o encerramento da coleção, pode- 
rão ser comprados, a preços atualizados, da seguinte forma: 1. PESSOAL- 
MENTE — Por meio de seu jornaleiro ou dirigindo-se ao distribuidor local, 
cujo endereço poderá ser facilmente conseguido junto a qualquer jornaleiro 
de sua cidade. Em São Paulo, os endereços são: rua Brigadeiro Tobias, 773, 
Centro; avenida Industrial, 117, Santo André; e no Rio de Janeiro: avenida 
Mem de Sá, 191/193, Centro. 2. POR CARTA — Poderão ser solicitados exem- 
plares atrasados também por carta, que deve ser enviada para DINAP — Dis- 
tribuidora Nacional de Publicações — Números Atrasados — Estrada Velha 
de Osasco, 132, Jardim Teresa — CEP 06000 — Osasco — SP. Não envie pa- 
gamento antecipado. O atendimento será feito pelo reembolso postal e o pa- 
gamento, incluindo as despesas postais, deverá ser efetuado ao se retirar a en- 
comenda na agência do Correio. 3. POR TELEX — Utilize o nº (011) 33 670 
DNAP, 

Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Publica- 
ções, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, os pedidos serão aten- 
didos dependendo da disponibilidade do estoque. 

Obs.: Quando pedir livros, mencione sempre título e/ou autor da obra, além 
do número da edição. 
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Encaminhe seus comentários, críticas, sugestões ou reclamações 
ao Serviço de Atendimento ao Leitor — Caixa Postal 9442, 
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DOMINE O VÍDEO 


MSX 


O MSX difere dos demais micros por 
possuir um microprocessador e uma 
memória de dezesseis kbytes dedicados 
só ao controle da tela. Desvende os 
segredos da VRAM e sinta a diferença! 


Muitos usuários dos micros MSX en» 
frentam dificuldades em utilizar coman- 
dos como BASE, VPEEK e VPOKE. 
Para melhor aproveitar esses recursos da 
linguagem BASIC, temos inicialmente 
que entender como é organizada a me- 
mória de vídeo — VRAM —, um item 
desprezado pela maioria dos manuais. 

O MSX possui um chip independen- 
te da unidade central de processamento 





(CPU) destinado exclusivamente ao con- 
trole da tela. Conhecido como VDP (Vi- 
deo Display Processor), ele gera imagens 
a partir de dados armazenados nos de- 
zesseis kbytes de uma memória indepen- 
dente da RAM (memória de acesso di- 
reto, onde ficam armazenados o progra- 
ma BASIC e as variáveis). Dessa forma, 
a utilização de gráficos multicoloridos 
de alta resolução não compromete a 
quantidade de memória disponível, co- 
mo acontece com outros micros. 





TELA DE QUARENTA COLUNAS 


"ÃO ligarmos um microcomputador 
da linha MSX, observamos uma tela de 
textos em que cada linha acomoda, teo- 





“TELA DE QUARENTA COLUNAS 


VPEEK E VPOKE 
FORMATO DAS LETRAS 
TABELA DE PADRÕES 
NOVOS CARACTERES 


ricamente, quarenta caracteres. Se isso 
não ocorrer em seu micro, digite o co- 
mando SCREEN 0. 

A tela — quer contenha textos, lista- 
gens de programas ou símbolos gráficos 
— é simplesmente uma reprodução da 
parte da VRAM denominada Tabela de 
Nomes (TN). Essa área da memória de 
vídeo possui 960 bytes de comprimen- 
to, correspondentes aos 960 caracteres 
que podem ser mostrados na tela simul- 
taneamente (são 24 linhas com quaren- 
ta caracteres cada uma). 

Cada uma dessas posições pode con- 
ter um número qualquer entre O e 255, 
número que é interpretado pelo VDP 
como o código ASCII (sigla de Ameri- 
can Standard Code for Information In- 
terchange) de um caractere. 





VPEEK E VPOKE 





Em qualquer micro, o comando PO- 
KE do BASIC nos permite armazenar 
um número entre O e 255 numa posição 
da RAM. Da mesma forma, o conteu- 
do de qualquer endereço da RAM ou da 
ROM é obtido com o comando PEEK. 

Como a VRAM não depende da 
RAM, necessitamos de comandos que 
nos possibilitem ler ou escrever bytes di- 
retamente na memória de vídeo, ou se- 
ja, VPEEK e VPOKE, Experimente es- 
sa nova forma de escrever na tela: 


10 CLS 
20 VPORE 417,77 
30 VPOKE 419,83 
40 VPOKE 421,88 
50 END 


Esse programa coloca diretamente 
nas posições 417, 419 e 421 os códigos 
das letras M, Se X. O VDP transforma 
o código da Tabela dé Nomes no carac- 
tere correspondente, que é imediatamen- 
te reproduzido na tela. 

Para conferir, digite: 


PRINT VPEEK (417) 
PRINT VPEEK (419) 
PRINT VPEEK (421) 


Estes comandos diretos recuperam os 
códigos das letras M, S e X diretamente 
da Tabela de Nomes. Se você não gosta 
muito de códigos, obtenha as letras cor- 
respondentes utilizando; 


PRINT CHRS (VPEEK (417)) 
PRINT CHARS (VPEEK (419)) 
PRINT CHARS (VPEEK (421)) 


Depois de familiarizado com o fun- 
cionamento desses dois comandos, O 
usuário poderá ter acesso às quarenta 
colunas da tela (o que não é possível por 
intermédio do comando PRINT). Mui- 
tos leitores já devem ter observado que 
o texto começa a ser escrito a partir da 
segunda coluna, reduzindo, portanto, O 
espaço total em uma coluna. 

Para ilustrar isso, note que 


LOCATE 0,10:PRINT "*" 


imprime um asterisco na segunda colu- 
na, deixando um espaço vazio à esquer- 
da, enquanto os comandos 


LOCATE 38,10:PRINT "*” 
e 
LOCATE 39,11:PRINT "*" 


imprimem asteriscos na mesma coluna. 
Use o seguinte programa para ocupar 
a primeira coluna da tela: 


10 SCREEN O:KE?Y OFF 


20 FOR 1I=0 TO 959 STEP 40 
30 VPOKE BASE (0)+1,20/ 
40 NEXT 


A linha 10 seleciona a tela de textos 
e apaga os rótulos das teclas de função 
da parte inferior do vídeo. Um laço 
FOR..NEXT entre as linhas 20 e 40 co- 
loca várias vezes o caractere de código 
207 na primeira posição de cada linha. 
Deve-se ressaltar que, apesar de termos 
usado a instrução BASE(0) na linha 30, 
ela é perfeitamente dispensável, uma vez 
que seu valor é zero. 





“COMO SE DESENHAM AS LETRAS 


Vimos até agora que, ao se colocar um 
número dentro da Tabela de Nomes, o 
VDP imediatamente o interpreta como 
o código ASCII de uma letra ou de um 
simbolo. Como o processador sabe o [or- 
mato de cada uma das letras do alfabeto? 

O leitor já deve ter notado que as le- 
tras que aparecem no vídeo da TV são 
compostas por pequenos pontos. Cada 
caractere tem seu perfil — ou padrão — 
desenhado em um quadrado com oito 
pontos de lado. Este padrão é codifica- 
do em números binários (formados por 
zeros e uns), a fim de que o computa- 
dor possa compreendê-lo. Se fizermos 
com que os “uns” correspondam aos 
pontos acesos e os '“'zeros"”, aos apaga- 
dos, poderemos codificar todos os per- 
fis. Como um número binário entre O e 
255 tem no máximo oito algarismos, ca- 
da caractere será representado através de 
uma série de oito números binários me- 
nores que 255, ou seja, oito bytes. 

Para que o VDP reconheça o formato 
dos caracteres, uma porção da VRAM é 
separada para armazenar os 2048 bytes 
necessários para representar os 256 sim- 
bolos existentes (256*8 = 2048). Esta 
parte da memória de vídeo é chamada 
de Tabela de Padrões e começa no en- 
dereço 2048 da VRAM. 


Para que o usuário não confunda os 
endereços da RAM e da VRAM, o BA- 
SIC do MSX oferece a instrução BASE, 
que evita a memorização dos endereços 
e permite modificar a posição das tabe- 
las. Assim, para a tela de textos de qua- 
renta colunas, o endereço inicial da Ta- 
bela de Nomes está em BASE (0) e o da 


Tabela de Padrões em BASE (2). 
Confira: 

PRINT BASE (O) 

C 


PRINT BASE(2Z) 





TABELA DE PADRÕES 


Visando a uma melhor compreensão 
da Tabela de Padrões, mostraremos um 
pequeno programa que nos facilitará o 
acesso a essa região da VRAM. 

Ao ser executado, o programa impri- 
me na tela a porção da tabela que cor- 
responde a um caractere. São impressos 
também os endereços (com conteúdos 
em números decimal e binário) e o ca- 
ractere com seu código. Dessa forma, O 
leitor entenderá como os números biná- 
rios codificam o formato dos caracteres. 


10 Z$="00000000” 

20 SCREEN 0:KEY OFF 

30 J=520 

40 GOSUB1QO 

50 KS=INKEY5S:IF K5="" THEN 50 
60 IE K$=CHARS(31) AND J<2040 TH 
EN J=J+8 

70 IF KS=CHR$(30) 
J=J-B 


AND J>? THEN 














| 


BO) GOTO 40 
100 LOCATE 12,1:PRINT "CARACTER 


110 VPOKE 64,J/8 

120 LOCATE 10,3:PRINT 
SBCII: ":]/8 

130 LOCATE 1,6:PRINT "Endereço" 
“'TAB(14);"Conteiúdo";1AB(27):"Co 
nteúdo” 

140 PRINT:PRINT TAB(3);"VBAM":T 
AB(14);"Decimal”;TABR(27);"Bindár 
10” 

150 PRINT 

160 FOR I=J TO J+7 

170 PRINT TAB(2) ;BASE(2)+I; TAB ( 
15) ;VPEEK (BASE (2) +I):;TAB(27):RI 
GHTS (ZS+BINS (VPEEK (BASE (2) +1)), 
8) 

180 NEXT 

190 RETURN 


"Código A 


A linha 10 cria uma variável auxiliar 
que permite a conversão decimal/biná- 
no. A linha 20 seleciona a tela de qua- 
renta colunas e apaga o rodapé com as 
teclas de função. 





























A variável J controla a porção da Ta- 
bela de Padrões mostrada na tela, defi- 
nindo o caractere que tem seu padrão 
exibido. Seu valor inicial, determinado 
na linha 30, faz com que a primeira le- 
tra impressa seja o “A' — cujo código 
é 65 (65*8= 520). A linha 40 chama a 
sub-rotina que imprime a porção da ta- 
bela que nos interessa. As linhas 50 e 80 
permitem avançar ou retroceder dentro 
da Tabela de Padrões usando as teclas 
de controle do cursor. 

A sub-rotina que cuida da impressão 
dos dados na tela vai da linha 100 à 190. 
As linhas 100 e 110 imprimem o carac- 
tere em questão; a linha 120 imprime seu 
código e as linhas 130 a 150 encarregam- 
se do cabeçalho, 

O laço FOR..NEXT, da linha 160 à 
180, imprime o conteúdo dos oito bytes 
que determinam o padrão do caractere 
e seus endereços na VRAM. 

Depois de uma ligeira exploração da 
Tabela de Padrões, o leitor notará que 


os caracteres gráficos (aqueles que não 
são letras ou sinais de pontuação) sur- 
gem truncados no vídeo. A razão disso 
é a incapacidade do MSX de imprimir 
mais que 256 pontos horizontais. Essa 
limitação fica mais evidente quando pre- 
cisamos de uma resolução de 320 pon- 
tos na horizontal para representar qua- 
renta caracteres, cada um com oito pon- 
tos de largura. Assim, quando estamos 
em SCREEN 0, somente são mostrados 
os seis pontos — ou bits — mais à es- 
querda do padrão, suficientes para de- 
finir as letras mas não os caracteres grá- 
ficos, que muitas vezes utilizam até oi- 


to pontos. 


UM NOVO CONJUNTO DE CARACTERES 





O formato das letras é definido na 
VRAM, e nada nos impede de modificá- 
lo, já que dispomos do comando VPOKE 


para executar tal tarefa. Confira: 


10 FOR 1=65*8 TO 91*8-1 
20 READ A:VPOKE BASE(2)+I,A 


30 NEXT 


40 FOR 1=97*8 TO 123*8-1 
50 READ A:VPOKE BASE(2)+I,A 


60 NEXT 


70 FOR 1=48B*B TO 58*8-1 
BO READ A:-VPOKE BASE(2Z)+I,A 


90 NEXT 
100 END 
1000 DATA 
200,0 
1010 DATA 
,240,0 
1020 DATA 
,/24B,0 
1030 DATA 
[240,0 
1040 DATA 
,/248,0 
1050 DATA 
(192,0 
1060 DATA 
/248,0 
1070 DATA 
200,0 
1080 DATA 
O 

1090 DATA 
20,0 

1100 DATA 
200,0 
1110 DATA 
248,0 
1120 DATA 
196,0 
1130 DATA 
6,200,0 
1140 DATA 
(248,0 
1150 DATA 
192,0 
1160 DATA 
(248,4 
11/0 DATA 


120,72,72,200,248,200 
112,80,80,248,200,200 
120,72,64,192,192,200 
112,72,72,200,200,200 
120,64,64,240,192,192 
120,64,64,240,192,192 
120,64,64,216,200,200 
72,72,72,248,200,200, 
16,16,16,48,48,48,48, 
48,16,16,24,152,152,1 
/2,12,80,224,208,200, 
64,64,64,192,192,192, 
68,108,84,196,196,196 
72,104,104,216,216,21 
120,72,72,200,200,200 
120,72,72,248,192,192 
120,72,72,200,200,216 


112,72,72,248,208,200 
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,200,0 
1180 DATA 
248,0 
1190 DATA 


10 

1200 DATA 
248,0 
1210 DATA 
0,32,0 
1220 DATA 
0,40,0 
1230 DATA 
00,0 

1240 DATA 
48,0 

1250 DATA 
,/248,0 
1260 DATA 
8,0 

1270 DATA 
00,248,0 
1280 DATA 
8,0 

1290 DATA 
248,0 
1300 DATA 
8,0 

1310 DATA 
92,0 

1320 DATA 
200, 248 
1330 DATA 
200,0 
1340 
1350 
1120 
1360 
0,0 
1370 
(0 
1380 
68,0 
1390 
D,0 
1400 
12,0 
1410. 
tr 192 
1420 
q, 24 
1430 
2,0 
1440 
0 
1450 
2,0 
1460 
50 
1470 
, 
1480 
0,0 
1490 
Õ 
1500 
1510 
O 
1520 DATA 
, 248,0 
1530 DATA 
Õ 

1540 DATA 
248,0 


DATA 
DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 


DATA 
DATA 


112,80,64,120,24,152, 
248,32,32,32,96,96,96 
72,72,72,200,200,200, 
200,200,200,200,200,8 
196,196,212,212,212,4 
80,80,80,32,208,200,2 
136,136,136,80,48,48, 
120,72,16,224,192,200 
0,0,112,16,240,208,24 
128,128,128,240,200,2 
0,0,112,64,192,192,24 
16,16,112,80,208,208, 
0,0,112,80,240,192,24 
48,80,64,64,240,192,1 
0,240,144,224,64,248, 
64,64,64,248,200,200, 


16,0,16,16,48,48,48,0 
16,0,16,16,24,152,152 


0,64,72,80,224,208,20 
32,32,32,96,96,96,112 
0,0,128,208,168,168,1 
0,0,64,112,200,200,20 
0,0,112,200,200,200,1 
0,0,120,72,200,248,19 
0,0,240,1]44,144,248,2 
0,0,80,104,192,192,19 
0,0,112,64,56,136, 248 
32,32,112,32,32,96,11 
0,0,72,72.,200,200,248 
0,0,200,200,200,80,32 
0,0,136,168,168,168,8 
0,0,80,80,32,208,200, 


0,0,72,72,48,48,48,0 
0,0,120,8,112,96,120, 


120,72,72,216,232,200 
32,96,32,48,48,48,48, 


120,72,8,248,192,200, 


1550 DATA 112,16,16,120,24,152, 
248,0 

1560 DATA 144,144,1]44,248,24,24 
24,0 

1570 DATA 240,128,128,248,24,%24 
[248,0 

1580 DATA 112,64,64,248,200,200 
,248,0 

1590 DATA 224,32,32,48,48,48,48 


O 

1600 DATA 112,80,80,248,152,152 
(248,0 

1610 DATA 240,144,1]44,248,24,24 
248,0 


O conjunto de letras futuristas per- 
manece à disposição do usuário até que 
o micro seja desligado ou receba um co- 
mando SCREEN. 

O programa é composto de três laços 
FOR...NEXT e um grande número de 
linhas DATA, cada uma com oito bytes 
que definem o padrão dos símbolos. 

O primeiro laço — que vai da linha 
10 a 30 — modifica os padrões das le- 
tras maiúsculas (códigos ASCII de 65 a 
90). O segundo laço — linhas 40 a 60 
— cuida das minúsculas (códigos 97 a 
122) e o terceiro — linhas 70 a 90 — dos 
números (48 a 57). Não incluímos carac- 
teres acentuados para não estender mul- 
to as linhas DATA. Entretanto, se o lei- 
tor compreender bem o funcionamento 
do programa, não terá dificuldade em 
criá-los, completando assim o conjunto. 

O programa que explora a Tabela de 
Padrões poderá ser aplicado para que se 
conheça mais detalhadamente os carac- 
teres recém-criados. 

Em contraste com o traço de van- 
guarda desses simbolos artificiais, cria- 
mos um segundo conjunto, dessa vez em 
letras de fôrma. As próximas linhas de- 
verão ser acrescentadas ao programa an- 
terior, formando um maior, que será 
completado no final do artigo. 


1620 
16,40,72,72,120,72,13 


5 RESTORE 
1620 DATA 
2,0 
1630 
8,0 
1640 
0 
1650 
8,0 
1660 
0 
1670 
O 
1680 
112 
1690 
2,0 
1700 
1710 
6 
1720 
0 
1730 


DATA 120,36,36,56,36,68,24 


DATA 24,36,64,64,64,68,56, 
DATA 120,36,36,36,36,68,724 
DATA 24,36,32,56,64,68,56, 
DATA 60,72,16,16,60,144,96 
DATA 24,36,64,68,68,60,136 
DATA 68,72,72,72,120,72,13 


8,24,40,8,8,16,224,0 
60,72,8,8,8,196,144,9 


DATA 
DATA 
DATA 68,72,80,96,80,72,132 


DATA 32,64,64,64,64,68,248 


0 
1740 
0 
1750 
7,0 
1760 
0 
1770 
92,0 
1780 
É 
1790 
96,0 
1800 
,0 
1810 
2,0 
1820 
0 
1838 
0 
1840 
0 


1850 
0 
1860 
0 
1870 
,0 
1880 
,0 
1890 
8,0 
1900 
1910 
1920 
1930 
32 
1940 
pia 
1950 
4,0 
1960 
0 
1970 
2 
1980 
0 
1990 
, O 
2000 
2010 
0 
2020 
2030 
2 
2040 
2050 
2060 


Ú 
2070 
4,0 
2080 
2090 
2100 
2110 
2120 
ê 
2130 
2140 
50 
2150 
2160 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 


40,84,84,84,84,84,132 
68,68,100,84,76,68,13 
24,36,68,68,68,72,48, 
120,36,36,36,120,32,1 
24,36,68,68,116,72,52 
120,36,36,36,120,40,1 
24,36,64,56,4,136,112 
124,16,16,16,16,32,19 
22,92,22,70072012.82% 
76,72,72,72,72,80,32, 
68,84,84,84,84,84,40, 
68,36,40,16,40,72,132 
68,36,36,36,24,16,224 
60,68,8,124,32,68,248 
0,0,56,72,136,136,116 
32,64,64,120,68,68,24 
0,0,24,36,64,64,188,0 
4,4,28,36,68,68,188,0 
0,0,56,68,72,48,220,0 
8,20,32,32,32,252,32, 
0,0,60,68,68,184,8,11 
32,32,40,52,36,100,16 
16,0,16,16,16,48,204, 
8,0,24,40,72,140,8,11 
16,32,36,40,48,40,196 
16,40,40,40,40,16,236 


0,0,40,84,84,84,132,0 
0,0,88,100,68,68,132, 


0,0,28,36,92,68,184,0 
0,0,56,36,96,252,32,3 


0,0,56,68,68,188,4,4 
0,0,32,60,36,68,132,0 
0,32,48,40,36,68,152, 


36,16,124,16,16,48,20 


0,0,68,68,68,68,188,0 
0,0,76,72,72,80,160,0 
0,0,196,84,84,84,40,0 
0,0,68,40,16,40,196,0 
0,0,36,36,36,252,8,11 


0,0,124,4,56,64,252,0 
24,36,76,84,100,72,48 


8,24,8,16,16,32,112,0 
56,68,36,8,48,100,88, 
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Le go ecl siste na atribuição de novos valores pa- 240 READ A:VPOKE 6144+1,A 
2188 DATA 4,12,24,40,72,124,16, As linhas seguintes devem ser adicio- 260 FOR 1=48%8 TO 57x8-] 


0 E eg amas arterincos 270 READ A:VPOKE 6144+I,A 
2190 DATA 60,32,64,120,4,4,120, Nadas aos dois programas anteriores, -.0 ca 


0 formando, assim, um terceiro. E neces- 400 J=0:GOSUB 360 

2200 DATA 12,16,32,120,68,68,56  Sário apagar as linhas 5 a 100 com DE- 519 ron J=8192 TO 16300 STEP 10 

o LETE 5-100. Além disso, o programa +54 

2210 DATA 60,4,8,16,32,64,64,0 precisa ser gravado antes de ser testado, 320 BASE(0)=J 

2220 DATA 56,68,68,56,68,68,56, a fimde permitir correções posteriores, 330 GOSUB 360 

0 no caso de ter ocorrido qualquer erro de 340 NEXT J 

2230 DATA 24,36,68,68,56,8,112, digitação. 350 GOTO 420 

0 é 360 FOR 1I=0 TO 959 

SERA Vi de= TE SCREEN 3:SCREEN O:KEY OFF 365 IF 12439 AND I<560 THEN VPO 
Ó programa utilizado é O mesmo, 209 FOR I=0 TO 2047 KE BASE (0)+1,32:NEXT 

com alterações apenas nas linhas DA- A=VPEEK (BASE (2) +1) 370 VPOKE BASE (0)+I,194+J/1024 

TA. O comando RESTORE 1620 faz VPOKE 4096+I,A 380 NEXT: A$="Esta Tela Se Inic 

com que o comando READ inicie a lei- ) VPOKE 6144+T,A ia Em"+STRS(J) 

tura a partir da linha DATA 1620. O NEXT 390 FOR I=1 TO LEN(AS) 
FOR 1=65*8B TO 91*8-1 400 VPOKE BASE (0) +486+I,ASC (MID 
READ A:VPOKE 4096+1,A S(AS,1,1)) 


MODIFICANDO O VALOR-BASE O NEXT 410 NEXT:RETURN 
aah 130 FOR 1=97*8 TO 123*48-1 420 BASE(0)=0:BASE(2)=2048 


A VRAM tem 16384 bytes de com- 0 READ A:VPOKE 4096+I,A 430 KS$=INKEYS:IF K$="" THEN 430 

mento: dos quais utilizamos anenas NEXT 440 IF K$=CHR$(31) AND BASE(0)> 
OR cando Runa o penas FOR 1=48*8 TO 5848-1 8192 THEN BASE (0) =BASE (0) -1024: 
SCREEN 0 (2048 para a Tabela de Pa- NR ED q vd 

ERREI O da PAR CR NEXT 450 IF KS=CHRS(31) AND BASE(0)= 
drões e 260 para a de nomes). Esse Es- FOR I=65*B TO 91x8-1 8192 THEN BASE (0) =0:GOTO 430 
paço ocioso pode ser aproveitado para READ A:VPOKE 6144+T,A 460 IF K$=CHRS (30) AND BASE(0)> 





armazenar conjuntos de caracteres e có- NEXT O AND BASE (0)<15000 THEN BASE(O 
pias da tela. O segredo do processo con- FOR 1=97*48 TO 123*8-1 )=BASE (0) +1024:GOTO 430 





470 IF KS=CHR$(30) AND BASE (0)= 
O THEN BASE (0)=8192:GOTO 430 
480 IF KS=CHRS(29) AND BASE(2Z)> 
2048 THEN BASE (2)=BASE(2)-2048: 
GOTO 430 

490 IF KS=CHAS(28B) AND BASE(Z)<S 
6144 THEN BASE (2)-BASE(2)+20486B: 
GOTO 430 

500 IF KS=CHR$S(27) 
=0: BASE (2)=2048: END 
510 GOTO 430 


THEN BASE (0) 


O objetivo desse programa é mostrar 
como usar toda a área da VRAM mes- 
mo em SCREEN 0. Ao ser executado, 
o programa gasta um longo período len- 
do as linhas DATA do final da listagem. 
A seguir observamos que o vídeo é 
preenchido sucessivas vezes com carac- 
teres diversos. Uma mensagem aparece 
no centro de cada tela, mas é apagada 
antes que possa ser lida. Isso acontece 
porque o programa está criando, na par- 
te ociosa da VRAM, “telas secundá- 
rias” que, de certa forma, coexistem 
com as demais telas. Elas podem ser re- 
cuperadas logo após a parada do pro- 
grama através das teclas do cursor. 

O programa também já tem prontas 
três cópias da Tabela de Padrões, cada 
qual com um tipo de caractere, o que 
nos permite mudar o aspecto das letras 
recorrendo às teclas do cursor. 

Para interromper o programa, use a 
tecla < ESC>. Se o programa for inter- 
rompido dessa maneira, ou porque 
ocorreu alguma mensagem de erro, e ele 
estiver em uma tela diferente da origi- 
nal, o cursor de texto não retornará à 
tela e o programa parecerá estar blo- 
queado. Para fazer o micro voltar ao 
normal, digite às cegas (nada aparecerá 
no vídeo) o comando abaixo: SCREEN 0 


SCREEN O 
e pressione a tecla <ENTER>. 


COMO FUNCIONA. 





Na linha 10, selecionamos o modo de 
textos e apagamos o rodapé da tela. O 
laço FOR... NEXT entre as linhas 20 e 
60 cria duas cópias da Tabela de Pa- 
drões, que começa normalmente em 
2048. As outras duas cópias terão ende- 
reços iniciais 4096 e 6144, respectiva- 
mente. Os laços seguintes obtêm nas li- 
nhas DATA os padrões que serão mo- 
dificados. As cópias da tabela original 
são necessárias, porque apenas as letras 
e os números são redefinidos, excluindo- 
se, portanto, os demais símbolos. 

As linhas 100 a 180 criam as letras fu- 
turistas na tabela que começa em 4096, 
- enquanto as linhas 200 a 280 produzem 
as letras de fôrma, utilizando a tabela 





iniciada em 6144. Essas linhas se pare- 
cem muito com as primeiras do progra- 
ma responsável pela mudança do con- 
junto de caracteres. | 

As telas secundárias são obtidas pe- 
las linhas 300 a 420. A variável J deter- 
mina o endereço inicial da tela produzi- 
da pela sub-rotina da linha 360. Assim, 
a primeira tela começando em O é cria- 
da pela linha 300. 

A sub-rotina iniciada a partir da li- 
nha 360 preenche as diferentes telas com 
vários caracteres gráficos usando o co- 
mando VPOKE na linha 370. Como o 
código do caractere depende da variá- 
vel J, ele resultará diferente a cada no- 
va tela. Além disso, na linha 380 surge 
uma mensagem que identifica a tela 
através de seu endereço inicial. O laço 
das linhas 390 a 410, usando o coman- 
do VPOKE, imprime a mensagem. Es- 
ta se destaca por meio de um espaço cla- 
ro criado pela linha 365. 

A sub-rotina da linha 360 é chama- 
da pela primeira vez na linha 300, para 
criar a tela original. A posição da tela 
pode ser mudada através da repetição da 
linha 320 para diferentes valores da va- 
riável J. Nessa linha, a variável BASE(0) 
e, portanto, o endereço inicial da Tabe- 
la de Nomes, assume o valor J. Para ca- 
da nova tela, a sub-rotina 360 é chama- 
da outra vez pela linha 330. Depois de 
produzidas todas as telas secundárias, O 
programa prossegue na linha 420, onde 
os valores de BASE(0) e de BASEQ) são 
restituídos ao normal. 

A porção do programa que abrange 
as linhas 430 a 510 torna possível a exi- 
bição instantânea de cada uma das te- 
las criadas, escritas com qualquer dos 
três conjuntos de caracteres. Esta mu- 
dança é obtida pela atribuição de um no- 
vo valor a uma variável BASE. As linhas 
440 e 450 permitem “avançar” dentro 
da VRAM através da tecla “seta para 
baixo”. Novas telas vão sendo mostra- 
das instantaneamente, à medida que se 
altera o valor de BASE(0). Por outro la- 
do, as linhas 460 e 470 possibilitam “'re- 
troceder”” dentro da VRAM. São neces- 
sárias duas linhas para cada movimen- 
to, devido ao grande intervalo entre a 
tela original (endereço inicial 0) e as se- 
cundárias. Este espaço é ocupado pelas 
Tabelas de Padrões. 

Com as linhas 480 e 490 podemos 
mudar instantaneamente o conjunto de 
caracteres, alterando o valor de BA- 
SE(2), endereço inicial da Tabela de Pa- 
drões. Para isso, o programa detecta as 
teclas “seta para a direita” e “seta pa- 
ra a esquerda”. 

A linha 500 possibilita terminar o 
programa sem maiores problemas atra- 
vés da tecla <ESC >. Essa linha resti- 


| ] | 
| 
| | | 
| 
| | 
| | | 


tui BASE(0) e BASE(2) aos seus valo- 
res iniciais antes de encerrar. 

Este programa poderia ser mais ilus- 
trativo se preenchêssemos cada tela se- 
cundária com um texto, de modo que 
parecessem páginas de um livro. Trata- 
se, entretanto, de uma tarefa dificil em 
razão da enorme quantidade de linhas 
necessárias. 





ALGUMAS LIMITAÇÕES 


Interrompido o programa, ainda é 
possivel obter uma mudança automati- 
ca do conjunto de caracteres digitando: 


BASE (2) =4096 


ou 
BASE (2) =6144 


Para recuperar o conjunto original, 
digite O seguinte: 


BASE (2) =2048 


ou 
SCREEN O 

Ao fazer isto, O usuário notará algo 
estranho no cursor: normalmente quan- 
do o sobrepomos a um caractere na te- 
la, esse caractere se inverte. Por exem- 
plo: se era claro sobre fundo escuro, tor- 
na-se escuro, sobre fundo claro. Quan- 
do mudamos a posição da Tabela de Pa- 
drões, entretanto, O cursor permanece 
como um espaço em branco, que apaga 
o caractere subjacente e desaparece na 
porção vazia da tela. 

A inversão do caractere sob o cursor 
é realizada na Tabela de Padrões, pelo 
sistema operacional do MSX. Isto se dá 
através das posições 2040 a 2047 da 
VRAM. Quando mudamos a BASE(2), 
o processo não é mais visivel. 

Comandos como PRINT, TAB e 
LOCATE só funcionam quando a BA- 
SE(0) tem valor O, ou seja, só imprimem 
na Tabela de Nomes em sua posição ori- 
ginal. Portanto, apenas por intermédio 
de VPOKE é possivel imprimir nas te- 
las secundárias; todas as mensagens de 
erro são impressas na Tabela de Nomes 
original, mesmo que uma tela secundá- 
ria esteja sendo mostrada no vídeo. 

Além de tudo isso, existem algumas 
limitações nos valores da instrução BA- 
SE. O endereço inicial de uma tabela de 
nomes — BASE(0) no caso de SCREEN 
O — deverá ser múltiplo de 1024. Da 
mesma forma, o endereço inicial de uma 
tabela de padrões — -BASE(2) em 
SCREEN 0 — terá que ser múltiplo de 
2048. Voltaremos a este assunto opor- 
tunamente, quando explicarmos os re- 
gistros do chip de vídeo-VDP. 











Conseguir uma melhor disposição 
dos móveis num ambiente nem sempre 
é algo fácil, e certamente é uma tarefa 


Deixe para o micro o trabalho “pesado” 
do planejamento de um ambiente. 
Com este projeto computadorizado, 
você pode distribuir seus móveis com 
o simples toque de algumas teclas. 
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cansativa. Normalmente, optamos por 
arrastar a mobilia de um lado para ou- 
tro, até encontrarmos a melhor posição 
para as diferentes peças. O desânimo 
aparece quando constatamos que nem 
tudo se encaixa nos espaços disponíveis. 
Um método mais simples consiste em 
lazer um planejamento prévio, dese- 
nhando cada móvel, com precisão, pa- 
ra em seguida adequá-los ao ambiente 
(obviamente é mais simples movimentar 
um retângulo que arrastar um sofá). 















































O METODO TRADICIONAL 
COMO USAR PAPEL E CANETA 

| TIRE AS MEDIDAS 
DESENHOS E ESCALA 
O GIRO DAS PEÇAS 


Apresentamos aqui, entretanto, uma 
terceira alternativa ainda mais fácil e 
moderna, utilizando seu microcomputa- 
dor pessoal. O vídeo gráfico pode subs- 
tituir O trabalho do papel e da caneta, 
com a grande vantagem de permitir fá- 
ceis correções. Além disso, os detalhes 
da mobília podem ser armazenados na 
memória do computador, eliminando a 
necessidade de redesenhar uma peça ca- 
da vez que quisermos moveên-la. 

O projeto computadorizado é seme- 
lhante ao projeto feito em papel. A pri- 
meira etapa consiste em se medir, de for- 
ma precisa, o local onde a mobília será 
colocada, já que em alguns ambientes 
poucos centimetros representam uma di- 
ferença significativa, 

De posse de todos os dados, incluin- 
do posições de portas e janelas, deve-se 
desenhar o ambiente (evidentemente em 
escala reduzida). O próximo passo é me- 
dir os móveis envolvidos no projeto e re- 
produzi-los na mesma escala usada pa- 
ra o desenho anterior. Dessa forma, se- 
rá fácil manipular as peças e saber com 








exatidão, por exemplo, qual a melhor 
posição para o piano na sala ou se a ge- 
ladeira caberá em um determinado can- 
to da cozinha. 

Apresentamos aqui apenas metade 
do programa, que é composto de sete 
opções. O restante virá no próximo 
artigo. 

As sete opções oferecidas no menu 
principal são as seguintes: 


Opção 1 - Reproduz o ambiente: to- 
mando por base sua maior medida, de- 
senha-o em escala que caiba na tela do 
micro. As dimensões devem ser indica- 
das em metros, junto com suas respec- 
tivas posições (Cima, Baixo, Esquerda, 
Direita). Na representação das paredes, 
consideraremos duas distâncias e duas 
direções, permitindo, assim, o desenho 
na diagonal. Na opção 1, especifica- 
mos também a posição das portas e 
janelas. 

Opção 2 - Possibilita a movimentação 
das peças da mobília já definidas no 
programa, São móveis de cozinha — tal- 
vez o ambiente mais difícil de ser pla- 
nejado — e incluem armário, fogão, 
máquina de lavar louça, pia e geladei- 
ra, todos com medidas padronizadas. 
Qualquer alteração desejada deverá ser 
feita através da opção 3. O mesmo de- 
senho de uma peça poderá ser colocado 
em diferentes lugares. Dessa forma, é 
possível, por exemplo, dispor quatro ca- 
deiras iguais ao redor de uma mesa, po- 
sicionando a mesma definição da peça 
nos lugares escolhidos. Tudo que temos 
a fazer é selecionar o móvel acionando 
algumas teclas. 

Opção 3 - Permite redefinir as peças já 
contidas no programa e incluir, no má- 
ximo, outras cinco, desde que não te- 
nham mais que dez lados — o que é su- 
ficiente para desenhar qualquer móvel. 
As novas peças serão desenhadas auto- 
maticamente, tomando como base a es- 
cala da reprodução do ambiente. 
Opção 4 - Permite salvar nosso projeto 
(opção um) e seu conteúdo (opções 2 e 
3) em disco ou fita. 

Opção 5 - Carrega um projeto e seu 
conteúdo de uma fita ou disco. 
Opção 6 - Cuida da impressão. Como 
apenas o Spectrum é capaz de imprimir 
a cópia do projeto diretamente, esta op- 
ção ficará incompleta para os demais 
micros. Ela pode ser usada para chamar 
uma rotina que despeje o conteúdo da 
tela na impressora ou um outro progra- 
ma em BASIC que faça a mesma tare- 
fa. Em um próximo artigo, aprendere- 
mos como criar essa rotina e obter có- 
pias impressas de nossos projetos. 
Opção 7 - E incumbida de terminar e 
sair do programa, 


A segunda parte deste programa tra- 
rá uma explicação mais detalhada de ca- 
da opção, além de conter a outra meta- 
de da listagem do programa. Mas aten- 


330 RETURN 

340 DRAW"BM213,70;D4FIR2ElU4HIL 
2G1IBU1BR8BD3R3IBASU3R4DINLADIBREB 
UBUZU2ZR2U2Z2L4DZ2” : RETURN 


ção: é necessário digitar as duas partes 350 CLS 
para que o programa rode com seguran- a COMPRIMENTO MAXIMO DO 


ca: portanto, grave a primeira antes de 
digitar a segunda. 


10 PCLEAR 8:CLEAR 2000 

20 DEF FNA(KM)=1.9*S5CX*A4M 

30 DIM 05(9),S(10) 

40 0$(0)="DD100;DC50;DE100;DB50 
: BD8; BC4; DD40;DC34;DE40;DB34;” 
50 OS(1)="DD50;DC60;DE50;DB60;B 
D10;BC10;DD1IO;DC10;DE1O;DB10;BD 
20;DD10;DC10;DE10;DB10;BC20;DCl 





370 INPUT LE 

380 IF LE>100 OR LE<3 THEN 350 
390 8C=100/LE 

400 PMODE 4,1:COLOR 0,1:PCLS:SC 
REEN 1,0 

410 XM=0:YM=LE 

420 GOSUB 240 

430 XX=FNA (KM) : YY=FNA(YM):IF PP 
OINT(XX,YY)=1 THEN PSET(XX,YY,O0 
) ELSE PSET(KX,YY,1) 

440 IS=INKEYS:IF 1$="" THEN 430 
450 OX=KM:0Y=YM 

460 IF I$=" " THEN COLOR O:GOTO 





0:DDLO;DB10;DE1O;BE10O;DE1lO;DC10 530 | 
“DD10;DB10;BEZ0;BC15;DD50;" 470 IF 1$="B” THEN COLOR 1:GOTO | 
530 


60 05(2)="DD100;DC60;DE100:;DB60 


70 05(3)="DD30;DC30;DE30;DB30;D 
C20;DD30;" 

B0 0S(4)="DD60;DC60;DE60;DB60;" 
90 CLS 

100 PRINT 696, TAB(6)"1: 
R AMBIENTE” 


PLANEJA 


110 PRINT TAB(6)"2: DESENHAR LA 
YOUT” 

120 PRINT TAB(6)"3: DESENHAR MO 
BILIA” 

130 PRINT TAB(6)"4: GRAVAR PROJ 
ETO”" 

140 PRINT TAB(6)"5: CARREGAR PR 
QJETO” 

150 PRINT TAB(6)"6: IMPRIMIR PR 
OJETO” 

160 PRINT TAB(6)"7: SAIDA” 


170 PRINT €6422,"FACA A OPCAO” ;: 
INPUT N 

180 IF N<l OR N>7 TREN 90 

190 IF N=2 AND Fl=0 THEN CLS: PR 
INT"VOCE DEVE PRIMEIRO SELECION 
AR OPCAO 1": SOUND 1,20:GOTO 9 
Q 

200 IF N=1 THEN Fl=] 

210 ON N GOTO 350,1120,830,1700 
,/1750,1790,230 

220 GOTO 90 

230 CLS: PCLS: END 

240 RF=0:COLOR O 

250 LINE(200,0)-(255,191),PSET, 
B 


THEN 400 
TREN FOR K=1l TO 4 


480 IF I$="C” 
490 IF IS="F” 





260 DRAW"BM206,10;S4;A0;NR4D6R4) 
BR2U6D3R4DIV6BR2D6RAU6NL4BR2D6R 
4U6NL4BRZNR4D3R4D3NL4BRZNR4U3INRI 
2U3R4BR4BD2DBD2D” 
270 IF RE=1 THEN RETURN 
280 DRAW"BM203,30;D6R2NU3RZU6BR 
6R4D6L4U6BRIOD6R4UIL4RIVILIBRIO 4 
NR4D3R4D3INL4BRZ2U6R4DIL4ABR6UINHA 
D6R4" 

290 DRAW"BM218,43;D6U3NR2ZUIR4BE 
6NR4D6R4” 

300 RETURN 

310 RF=1:COLOR 0,1:LINE(201,1)- 
(254,190), PRESET,BF:GOSUB 250 
320 DRAW"BM208, 30; ND6R4D3IL4BRIO 
BU3D6R3E LU4H1L3BRIO;ND6R4D3L4RI 
F3BR6U6R4L4DIR2” 









| 
ho 
o 





:PCOPY K TO K+4:NEXT:GOTO 90 


500 IF I$="W” THEN 710 

3910 IF 15$="0" THEN 800 

320 GOTO 430 

530 CLS 

540 FOR A=1 TO 2 

550 PRINTºDIRECAO";A;" C/B/E/D 
“7: INPUT DS(A) 

960 LF DSCAJ="TT THEN COF 

570 PRINT CDISTANCIA";A;:INPUT 
DIA) 


580 IF INSTR(1,"CBED”,DS(A))=0 
THEN 550 

590 NEXT 

600 SCREEN 1,0:FOR A=1 TO 2 

610 IF DS(A)="" THEN 670 

620 IF DS(A)="E” THEN XM=KM-D(A 
) 

630 IF 


DS (A)="D” THEN XKM=XM+D (A 


IF DS(A)J="C”" THEN YM=YM-D(A 
IF DS(A)="Bº” THEN YM=YM+D (A 


NEXT A 


31 APLICAÇÕES 31 


670 IF XM<O OR XM>LE OR YM<O OR 
*Y>2LE THEN SOUND 1,2:XM=0X: YM=O0 
Y:GoTo 430 


680 XI=FNA(OX) :Y1I=FNA(OY) :X2=EN 


A (XM) : TZ=FNA (YM) 

690 LINE(X1,Y1)-(X2,Y2),PSET 
700 GOTO 430 

710 CLS: INPUT"DIRECAO C/B/E/D”"; 
DS 
720 
730 
740 
150 
NA (XM) 
ET,BF 
760 IF 
NA (XM) 
ET,BF 
70 IF 
NA (YM) 
ET,BF 
780 IF 
NA (TM) 
ET,BF 
790 SCREEN 1,0:-GOTO 430 


INPUT "DISTANCIA";D 
X1=FNA (0X): YI=FNA(OY) 

POKE 178,2 

IF D$="E” THEN KM=XM-D:X2=F 
:LINE (XL, Y1)-(X2,Y1+3),PS 


D5$="D” THEN XM=KM+D:X2=F 
ILINE(XI,Y1)-(X2,71+3),PS 


D$="C” THEN YM=YM-D:Y2=F 
:LINE (X1,Y1)-(X1+3,Y1),PS 


D$="B” THEN YM=YM+D:Y2=F 
:LINE (XI, Y1)-(X1+3,72),PS 


800 CLS: INPUT"DIRECAO C/B/E/D"; 
DS (1) 

B1LO INPUT"DISTANCIA";D(1) 

820 D$(2)="":COLOR 1:GOTO 600 
B30 CLS 

840 INPUT"DEFINIR ITEM NUMERO 
(0-9) ":N 

850 IF N<O OR N>9 THEN 830 

B60 05 (N)="" 

870 PRINT"USE <ESPACO> PARA LIN 
HA” : PRINT"USE 'B' PARA LINHA VA 
ZIA”":FOR D=1 TO 1000:NEXT 

B80 PMODE 4,1:COLOR 0,1:PCLS:SC 
REEN 1,0 

B90 X=75:Y=145 

900 DRAW"BM/5,150;R1I00NG3NH3;BM 
70,145; UL0O0ONF3NG3" 

910 IF PPOINT(X,Y7)=0 THEN PSET( 
X.Y,1l) ELSE PSET (X,Y7,0) 

920 IS=INKEYS:IF 1$="" THEN 910 
930 OX=X:Cr=T 
940 IF 18="C” 
LF IQmCES 
IF I8m" * 
970 IF I$<>” 


THEN 830 
THEN 90 
THEN COLOR O 
” THENCOLOR 1 











ORA ME E 0 A 0 ES PRN 10 127 O dO 


980 IF 1I5=" " THEN OS (N)=05(N)+ 
"D” ELSE OS (N)=0S (N)+"B” 

990 CLS: INPUT "DIRECAO C/B/E/D” 
:D$ 

1000 IF INSTR(1,"CBED",D$)=0 TH 
EN 990 

1010 INPUT"DISTANCIA (CM)";D 
1020 IF D<=0 OR D>200 THEN 1010 
1030 SCREEN 1,0 

1040 IF D$S="E” THEN X=XK-D/2 
1050 IF DS="D”" THEN X=X+D/2 
1060 IF D$S="C”" THEN Y=Y-D/2 
1070 IF D$="B” THEN Y=Y+D/2 
1080 IF X<75 OR X>175 OR Y<d5 0 
R Y>145 THEN SOUND 1,3:X=0X:Y=0 
Y:GOTO 910 

1090 LINE(OX,0Y)-(X,Y),PSET 
1100 OS (N)=0S (N) +DS+STAS (D)+" 5" 
1110 GOTO 910 

1120 FOR K=1 TO 4:PCOPY K+4 TO 
K:NEXT:CLS 

1130 PMODE 4,1:SCREEN 1,0 

1140 GOSUB 310 

1150 X=128B:Y=96:RT=0 

1160 IF X<3 THEN X=3 

1170 IF Y<3 THEN Y=3 

1180 GET(X-3,Y-3)-(X+3,7+3),5,6 
1190 DRAW"CO:;BM"+STRS (X)+","+S5T 
RS (7) +"NU3NDINL3INR3” 

1200 IS=INKEYS:IF 1I$="" THEN 12 
Do 


5 POKE 23658,8 


10 BORDER O: PAPER O: INK 4: 
CLS 

12 GOSUB 8000 

20 GOSUB 7000: PRINT  INVERSE 


L;AT 2,23;" [1 )]JAMB";AT 3,23;"1 
2)PLAN";AT 4,23;"[3)]MOB";AT 5 
.23;" [4 ]GRAV";AT 6,23;" [5 ]JCAR 
RP:AT 7,23;" [6 ]IMPBP;AT 8,23; 
"[7 ]SAIDA” 
30 LET K59="1234567": GOSUB 
7040: GOSUB 7000: TF Z=55 
THEN STOP 
40 GOSUB 1000*(Z-49)+1000: 
Goto 20 
1000 LET NF=1: 
1005 PLOT 0,0: 
1010 PRINT PAPER 2; 
1,22;"MAXIMO=";MAX 
1015 PRINT  INVERSE 1L;AT 2,22;" 
[J]JANELA";AT 3,22;" [PIPORTA" GA 
T 4,22;" [BJBRANCO";AT 5,22;"[ ] 
DESENHA";AT 6,22;"[S]SAIDA";AT 
To Ras” 
1016 LET KS="JPES ": GOSUB 7040 
INK 3*(Z=74)+2*(2Z2=80)+7*(2Z=32 


GOSUB 6080 
LET X=0: LET Y=0 
INK 6;AT 2 


) 


1020 IF 2Z=83 THEN INK 4: RETUR 
N 
1025 GOSUB 7010: LET DX=K+D*((D 


$="D")*SC)-D*((D$S="E”)*SC): LET 
DY=Y+D*( (D$="C")*5C)-D*((D53="B 
")*S8C): GOSUB 7010 
1030 LET DX=DX+D* ( (DS="D") *5C)- 
D*((DS="E")*SC): LET DY=DY+D*(( 
D$="C")*SC)-D*((D$="B")*5C) 
1032 IF DX>175 OR DX<O OR DY>21/ 
5 OR DY<O THEN PRINT FLASH 1; 
AT 7,23;" ERRO": PAUSE 100: GOTO 


NEXT 


1015 
1035 DRAW DX-X,DY-Y: LET X=PEEK 
23677: LET Y=PEEK 23678: LET & 
S=STR$S (X/SC): LET YS=S5TAS (Y/5 
C) 
1037 IF LEN XS$<3 THEN LET XS=F 
5( TO IJ-LEN XKS)+XS 
1038 IF LEN Y$<3 THEN LET Y$=F 
S( TO 3-LEN Y3)+75 
1039 LET X5$=XS( TO 3): LET Y3=Y 
SC TO 3): PRINT INK Z;AT 10,24 


:"DX=";XS;AT 11,24;"DYy=";YS 
1040 GoTo 1016 
2000 IF NF=0 THEN RETURN 
2005 FOR N=1 TO 10: LET QS="["+ 
STARS N+")"+0S(N): PRINT INVERS 
E J;AT N*2,24+4-LEN Q5:08: NEXT 
N 
2010 LET R=0: GOSUB 6060: LET € 
U=2 
2020 PRINT  INVERSE 1;AT CU,29; 
CHRS 144: FOR N=1 TO 10: NEXT N 
* PRINT INVERSE 1;AT CU,29;" " 
2030 LET KS=INKEYS: LET CU=CU-2 
*(((KS="7")*X(CU>2)))J+2H( ((K$="6 
"j*(CU<20))) 
2040 IF KS<>"S” THEN 
2050 LET OB=CU/2: 
T OY=85 
2087 LET F=1: GOSUR 60L0 
2060 GOSUB 7000: PRINT AT 5,24; 
FLASH 1;"0BJ=",05(0B); FLASH 0 
“AT 7,22; INVERSE 1;"[5-B IMOVE” 
“AT B,22:"[CICOLOCA";AT 9,22;"[ 
HJHORARTO";AT 10,22;" [A |ANTHORA 
"AT 11,22;" [S]SAIDA" 
2070 LET KS="56/B8CAHS": 
040: IF Z=83 THEN LET R=0: 
F=1: GOSUB 6010: GOTO 6060 
2080 LET F=1: GOSUB 6010: LET O 
K=0X+2*4 ((2=56)* (0X<175))-2*H((Z= 
39) *(0X>1)): LET OY=0Y7+2*((2=55 
J*(07<175))-2*x((Z=54)*(0720)) 
2085 IF Z=72 OR Z=65 THEN GOSU 
B 6020 
2090 GOSUB 6010 
2100 IF 2Z=67 THEN LET F=0: GOS 
URB 6010: GOSUB 7000: GUTO 2000 
2110 GOTO 2070 
3000 PRINT AT 2,24;" PROJETO" 
3012 INPUT "ENTRE FIGURA A DEFI 
NIB ";O0B: IF 0B<l] OR 0B>10 THEN 
GOTO 3012 
3013 INPUT "DIGITE NUMERO DE LA 
DOS (1-15) ? ";S(0B): IF S(0B)< 
1 OR S(0B)>15 THEN GOTO 3013 
3014 INPUT "CODIGO DE DUAS LETR 
AS ?";05(0B) 
3016 LET B=0: GOSUB 6060: 
Xx=80: LET 0Y=80 
3017 FOR S=1 TO S(0B)*2 STEP 2 
3020 FOR N=1 TO 2: GOSUB 7010: 
LET D=D/125: LET O(0B,S)=O(OB,S 
J+((D*(=-1* (D$S="E")+(D$="D")))): 
LET O(0B,8S+1)=0(0B,S+1)+((D* (- 
1* (D$="B")+(D$="C")))) 
3030 NEXT N 
3040 NEXT S 
3050 LET F=1: GOSUB 6010: INPUT 
"ESTA CORRETO (S/N) ?";88: IF 
9$="N” THEN GOSUB 6010: FOR N= 
| TO S(0B)*2+1: LET O(0B,N)=0: 
N: GOTO 3012 


GOTO 2020 
LET OX=B5: LE 


GCOSUB 7 
LET 


LET O 


3060 GOSUB 6010: RETURN 

4000 GOSUB 6200 

4015 IF Z=83 THEN SAVE ESSCREE 
NS : RETURN 

4020 SAVE ES DATA O0() 

4030 SAVE ES DATA S() 

4040 SAVE ES DATA 08() 

4050 RETURN 

5000 GOSUB 6200 

S0O10 IF Z=83 THEN LOAD ESSCREE 


NS : RETURN 


5020 LOAD ES DATA O() 

5030 LOAD ES DATA S() 

5040 LOAD ES DATA 05%) 

5050 RETURN 

6000 COPY RETURN 

6010 OVER F: INK 7: PLOT 0OX,0%: 
FOR N=1 TO (S(0B)*2) STEP 2: D 


BAW O(OB,N)*CY-0 (0B,N+1)*CX,OLO 
B,N)J*4CX+O (0B,N+1) *CY: NEXT N 
6014 OVER O: INK 4: RETURN 

6020 LET B=B+(2*(2=65))-(2*(Z=7 
2)): IF R>160 THEN LET R=0 
6030 IF B<O THEN LET R=360-R 
6060 LET A=R*(P1I/180): LET CY=5 
C*COS A: LET CX=SC*SIN A: RETUR 
N 

6080 INPUT "ENTRE MAXIMA DIMENS 
ÃO 2" ;:;MAX 

6090 LET SC=175/MAX 

6100 RETURN 

6200 PRINT  INVERSE 1;AT 10,23; 
"(TITELA";AT 11,23;" [D]DADOS": 
LET KS="TD": GOSUB 7040: INPUT 
"ENTRE NOME DO ARQUIVO" ES: RET 
URN 

7000 FOR N=0 TO 21: 
R 4:AT N,22;" dE 
N: PRINT AT 0,25;"MENU”: 


is 


5 SCREEN 2,0:COLOR 1,15,15 

10 KEY OFF:GOTO 2000 

20 DEF FNA(XM)=1.9*5C*XM 

30 DIM 05(9),8(10) 

40 0S (0)="DD100;DC50;DE100;DB5O 
: BD8;BC8;DD4O;DC34;DE40;DB34;” 
50 OS (1)="DD50;DC60;DES0;DB60;B 
D10;BC10:DD10;DC1IO;DE10O,DB10;BD 
20;DD10;DC10;DE10;DB10;BC20;DCl 
0:DD10;DB10;DE10;BE1lO0;DE10;DC1O 
:DD10;DB10;BE20;BC15;DD50;” 

60 058(2)="DD100;DC60;DE100;DB60 


PRINT PAPE 
NEXT 
RETURN 


70 05(3)="DD30;DC30;DE30;DBI0;D 
C20;DD30;" 

80 0S(4)="DD60;DC60;DE60;DB60;” 
A5 CLS 

90 SCREEN O 


100 LOCATE 8,5:PRINT"I: PLANEJA 

AR AMBTENTE” 

110 LOCATE 8,6:PRINT"2Z: DESENHA 

R LAYOUT” 

120 LOCATE 8,7:PRINT"3: DESENHA 

AR MOBILIA” 

130 LOCATE 8,8:PRINT"4: GRAVAR 
PROJETO” 

140 LOCATE 8B,9:PRINT"S: CARREGA 

R PROJETO” 

150 LOCATE 8,10:PRINT"6: IMPRIM 

IR PROJETO” 

160 LOCATE 8,11:PRINT"?Z: TERMIN 



























170 LOCATE 8,14: INPUT"SUA ESCOL 

HA ":N 

180 IF N<1l OR N>7 THEN 170 

190 IF N=2 AND Fl=0 THEN LOCATE 
5, LB: PRINT"C<escolha primeiro a 
opção 1>":GOTO 170 

200 IF N=1 THEN Fl=]1 

210 ON N GOTO 350,1120,830,1700 
/1750,1790,230 

220 GOTO 90 

230 CLS: END 

240 RF=O 

250 LINE(200,0)-(255,191),1,B 
260 DRAW"BM206,10;S4;A0;NR4D6R4 

BARZ2U6DIRADIVEBAZDER4AVENL4ABAZD6R 

4UGNL4BR2NH4DIR4ADINL4BRZ2NH4UINA 
Z2U3B4BAR4BD2DBD2D” 

270 IF RF=1 THEN RETURN 

280 DRAW" BM203, 30; DOR2NUJRZU6BR 

GRADE L4AUGBAILOD6R4AUIL4ARIUILIBRIO 

NR4D3R4DINL4IBR2U6GAIDIL4BR6UINAA 

D6R4” 

290 DRAW"BM218,43; DOUJNR2ZUJRA4BR 

6NR4D6R4” 

300 RETURN 

310 RF=1:LINE(201,1)-(254,190), 

15,BF:GOSUB 250 

320 DRAW" BM208,30;ND6R4DIL4HBRIO 

BU3D6RIE LU4H1L3BRIO;ND6R4DILA4RI 

FIBR6U6R4L4DIRZ” 

330 RETURN 

340 DRAW"BM213,70;D4FIRZ2ElIU4HIL 

2G1BUlBR8BD3R3BR5SU3R4DINL4DIBRB 

UBUZU2ZAR2U2Z2L4D2”" : RETURN 


350 CLS 

360 PRINT"COMPRIMENTO MAXIMO DO 
AMBIENTE” 

370 INPUT" (em metros)";LE 

380 IF LE<3 OR LE>100 THEN 350 
390 SC=100/LE 

400 SCREEN 2 

410 XM=0: YM=LE 

420 GOSUB 240:A=USR(0O) 

430 XX=FNA (KM) :YY=FNA(YM):IF PO 


INT(XX,YY)<>1 THEN PSET(XX,YYT), 
1 

440 
450 
455 
460 
470 
30 

480 
490 
090 


IS=INKEYS: IF 15="" THEN 430 
OX=KM:0f=YM 

DS (1)="":DS(2Z)="" 

LF 15=" * THEN CL=1L:GOTO 540 
JE IS="B” THEN CL=15:GOTO 5 


JF 1$="C” 
IF 1$="F” 


THEN 400 
THEN A=USR(0O) :GOT 


IF 15$="W”" THEN 710 


510 IF 19$="0" THEN CL-15:GOTO B 
Vo 

520 GOTO 430 

530 SCREEN O 

540 FOR A=l TO 2 


550 PRINT"Direção” ;A;" C/B/D/E" 
|: INPUT DS(A) 

560 IF DS(A)="" THEN 600 
570 PRINTDistância";A;" 
8)”; : INPUT D(A) 

580 IF INSTR(1L,"CBDE",DS(A))=0 
THEN55SO 

590 NEXT 

600 SCREEN 2:A=USRZ2(0) :A=USRI(O 


(metro 


FOR A=l1 TO 2 

610 IF DS(A)="" THEN 670 

620 IF DS(A)="E” THEN XM=KXM-D(A 
THEN XM=XM+D (A 


630 IF D$(A)="D" 


640 IF DS(A)="C” THEN YM=YM-D(A 


650 IF DS(A)="B” THEN YM=YM+D(A 


NEXT A 


670 IF XM<O OR XM2LE OR YM<O OR 
YM>LE THEN BEEP:XM=0X: TM=0T:GO 
TO 430 

6B0 XI=FNA(OX):YI=FNA(OY):X2=FN 
A (KM) :Y2=ENA (YM) 

690 LINE(X1,Y1)-(X2,Y2),CL 

695 A=USR(O) 

700 GOTO 430 

710 SCREEN O: INPUT"Direção C/ 
B/D/E" ;DS 

720 INPUT"Distância ";D 

730 X1I=FNA(OX) :YI=FNA(OY) 

735 SCREENZ:A=USR2(0) :A=USRI (O) 
750 IF D$="E” THEN KM=kKM-D:X2=F 
NA (XM) :LINE(X1I,Y1+1)-(XK2,Y1+1), 
L:LINE(X1I,Y1)-(XZ,72),1 

760 IF D5="D" THEN AM=kKM+D:X2=F 
NA (XM) :LINE(XIL, Y1+1)-(X2,Y1+1), 
1:LINE(XL,TL)-(X2Z,72),1 

7270 IF D$="C” THEN YM=YM-D:Y2=F 
NA (YM) :LINE(KI+1L,Y1)-(XI+1,Y2), 
L:LINE(XL,Yl)-(X2,72),1) 

780 IF D$="B” THEN YM=YM+D:T2=F 
NA (YM) :LINE(XI+I, YI)-(XI+L, Y2), 
L:LINE(XI,Y1L)-(X2,72),1 

790 A=USA(O) :GOTO 430 


B00 CLS: INPUT"Direção C/B/D/E' 

"DS (1) 

B1LO INPUT"Distância ";D(1) 

B20 D5(2)="":GOTO 600 

830 CLS 

B40 INPUT'"DEFINIR A PEÇA NUMERO 
(0-9) "4N 


B50 IF N<O OR N>9 THEN 830 

B60 05(N)="" 

870 SCREEN 2:RF=1:GOSUB 250 

B80 DRAW"BM218,43;NR4DJR4DINLAB 
R2U6R4DILABR6UINRADÉRA ;BM2Z210,56 
; D6R4U3L4AHIVILIBRISDAUINRZUIRAD 
RIONR4D6R4” 

B90 X=75:Y=145 

900 DRAW" BM/5,150;8100NG3NH3; BM 
70,145;U1]00NF3NG3” 

910 IF POINT(X,T)S21] THEN PSET( 
Hot)sd 


920 IS=INKEYS:IF 1I$="" THEN 920 


















A=USR3(0) 
OX=H:0Y=Y 

IF 158="C” THEN 830 

IF I$="F” THEN 90 

IE 18=" " THEN CL=1 

IF 1842" * THEN CL=15 

IF 15$=" " THEN O0S(N) =05(N)+ 
"D” ELSE OS (N)=0S (N) +"Bº 
990 SCREENO: INPUTCDireção 
/D/E”" ;DS 

1000 IF INSTR(1,"CBDE",D$S)=0 TH 
EN 990 

1010 INPUT"Distância (cms)";D 
1020 IF D<=0 OR D>200 THEN 1010 
1030 SCREENZ:A=USRZ2(0) :A=USR4 (O 
) 

1040 IF 


C/B 


D$5="E" 
D$="D* 


THEN X=X-D/2 
THEN X=K+D/2 
D$="C" THEN Y=Y-D/2 
D$="B” THEN Y=Y+D/2 
X<75 OR X>175 OR Y<45 O 
THEN BEEP:-X=0X:Y=0Y:-GOT 


1090 LINE(OX,0Y)-(X,Y),CL 
1100 05(N)=05(N) +DS+MIDS (STARS (D 
PRE os chi Vi 


1110 GOTO 910 

1120 SCREEN 2 

1130 A=USR2(0): A=USRI (0) 
1140 GOSUB 310 

1150 X=128:Y=96:RT=0 





1160 IF X<3 THEN X=3 

1170 IF Y<3 THEN Y=3 

1190 PUTSPRITEO, (X,Y7),1,0 

1200 IS=INKEYS:TFIS="" THEN 120 
Q 











UERR BR O A A 


A MATEMÁTICA DA 
IRREGULARIDADE (2) 








No artigo da página 1356, vimos co- 
mo obter imagens fascinantes por meio 
de programas recursivos muito simples. 
Essas imagens, também denominadas /i- 
guras fractais, são geradas matematica- 
mente na fronteira entre o que chama- 
mos de regular e irregular. 

Com a técnica fractal podemos con- 
seguir formas muito mais próximas das 
observadas na natureza que com os mo- 
delos construídos a partir da ciência tra- 
dicional. Mostraremos aqui como fazer 
simulações desse tipo no seu micro. 

O primeiro programa desenha uma 
das formas mais simétricas da natureza: 
a forma hexagonal de um floco de neve. 





10 BORDER O: PAPER O: INK 5: 
BRIGHT 1: CLS 
20 LET AN=2*ATN (1)/3: LET 52 
=2/S0R (3) 
30 LET XC=127: LET YC=90: LET 
5=120: LET C=Z 
50 GOSUB 1000 
60 STOP 
1000 LET S=5/3: IF S«l THEN LE 
T S=8*3: RETURN 
1020 PLOT  INVERSE 1; OVER 1;1N 


T (XC+52*S*SIN (-AN)), (YC-52*5* 


Cos (-AN)): FOR K=0 TO 8*ATN (1 
)J-AN STEP Z*AN 
1030 DRAW XC+2*S*SIN (K)-PEEK 2 


3677,YC-2*S8*C0OS (K)-PEEK 23678 


1040 DRAW XKC+52+*S*SIN (K+AN)-PE 
EK 23677,Y7C-S2*5*C0S5 (K+AN)-PEÉE 
K 23678 

1050 NEXT K 

1060 LET C=C-l: GOSUB 1000 

1070 LET YC=YC-1.36*5: GOSUB 10 
00 

1080 LET YC=YC+.6B*5: LET XC=XC 
+1.19*8: GOSUB 1000 

1090 LET YC=YC+1.36*S5: GOSUB 10 
DO 

1100 LET YC=YC+.6B*S: LET XC=KC 
=1.19*5: GOSUB 1000 

1110 LET YC=YC-.6B*5: LET AC=AC 
-1.19*5: GOSUB 1000 

1120 LET YC=YC-1.36*5: GOSUB 10 
00 

1130 LET YC=YC+.68*S: LET XC=AC 
+L. 985: LET S=5*3! LET Co=Cri: 
RETURN 


10 PMODE 3,1:PCLS:SCREEN 1,0 


20 AN=2*ATN(1)/3:82=2/SQR(3) 
30 XC=127:70C=95:5=135:C=4 





50 GOSUB 1000 

60 GOTO 60 

1000 8=5/3:IF S<l THEN 8=5*3:RE 
TURN 

1010 IF €=2 THEN COLOR 4 ELSE I 
F C=1 THEN COLOR 2 ELSE COLOR € 
1020 DRAW"BM"+STRS (INT (KC+S2*45x 
SIN(-AN)))+”","+STR$ (INT (YC-52*S 
*COS(-AN))):FOR K=0 TO 8*ATN(1) 
-AN STEP 2Z*AN 

1030 LINE - (XC+2*S*SIN(K), YC-2* 
S*COS(K)),PSET 

1040 LINE - (XKC+SZ*S*SIN(K+AN),Y 
C-S2*S*COS (K+AN)), PSET 


1050 NEXT:PAINT(XC,YC) 

1060 C=C-1:GOSUB 1000 

1070 YC=YC-1.36*5:GOSUB 1000 
1080 YC=YC+.6B+*45:XC=XC+1.19*5:6 
OSUB 1000 

1090 YC=YC+1.36*S:GOSUB 1000 
1100 YC=YC+.6B*5:XKC=XC-1.19*5:G 
OSUB 1000 

ALIO TC=TC-.6B*4S:XC=AC-1.19*45:G 
OSUB 1000 

1120 YC=YC-1.36*5:GOSURB 1000 
1130 YC=YC+.68*5:XC=XC+1.19*5:5 
=8*3:C=C+1: RETURN 


[ab [5] 


10 HAGRZ2 + 

20 AN = 2 * ATN (1) / 3:52 = & 
f SOR (3) 

30 HC = 127:70C = 95:58 = 135:€ = 
4 


50 GOSUB 1000 
60 GOTO 60 


1000 8 = 8 / 3: IF 8 «1 TRENS 
= 8 * 3: RETUAN 
1020 HPLOT INT (XC + 82 * 5 * 


INT (UC - 82 * 
S* cos ( - AN)): FOR K = O TO 
8 * ATN (1) - AN STEP 2 * AN 
1030 HPLOT TO XKC+ 2757 5 

IN (K),YC - 2% 8 *%* COS (K) 


SIN ( - ANJ), 


1040 HPLOT TO XC+ 52 * 85 * 

SIN (K + AN),YC - S2 * 5 * COS 
(K + AN) 

1050 NEXT 

1060 C = € - 1: GOSUB 1000 

10720 YC = TC - 1.36 * S: GOSUB 

1000 


1080 VC = YC + .68 * 8:X€C = AC 
+ 1.19 * S: GOSUB 1000 

1090 YC = YC + 1.36 * 5: GOSUB 
1000 


1100 YC = YC+ .68 * B:XC = MC 
-= 1.19 * S: GOSUB 1000 
1110 TC = YC-.68B * S:XC = KC 
- 1.19 * S: GOSUB 1000 


1120 TC = TC - 1.36 * 5: GOSUB 
1000 


Neste artigo, você verá como 

aplicar o que aprendeu sobre dimensões 
fracionadas na simulação de imagens 
da natureza, como uma montanha 

ou um floco de neve. 


1130 WC = YC+ .68 * S:XC = MC 
+ 1.19 * 8:5 = 5. * 3:10 =C+d; 
RETURN 


o 


10 SCREEN 2 

20 AN=2*ATN(1)/3:52=2/50QR(3) 

30 XC=127:YC=95:8=135:C=4 

50 GOSUB 1000 

60 GOTO 60 

1000 8=8/3:IF S<l THEN 5=5*3:RE 
TURN 

1010 IF €=2 THEN COLOR 8 ELSE I 
E €=1 THEN COLOR 11 ELSE COLOR 
E 

1020 DRAW "BM"+STRS (INT (XC+5S2*5 
ASIN(-AN)))+”,"+STRS (INT (YC-5S2* 
S*COS(-AN))):FOR K=0 TO B*ATN(I 
)J-AN STEP 2Z*AN 

1030 LINE-(XC+2*5*SIN(K) , TC-2*45 
*COS (K)) 

1040 LINE-(XC+5S2*S*SIN(K+AN), YC 
-=S2*S8*CO0S (K+AN) ) 


1050 NEXT: PAINT(XC,YC) 

1060 €=C-1:GOSUB 1000 

1070 YC=YC-1.36*S5:GOSUB 1000 
1080 YC=YC+.6BAS:XC=KC+1.19*5:6 
OSUB 1000 

1090 YC=YC+1.36*S5:GOSUB 1000 
1100 YC=YC+.6BXS:XC=KC-1.19*5:6 
OSUB 1000 

1110 YC=YC-.6B*5:XC=KC-1.19*5:6 
OSUB 1000 

1120 YC=YC-l1.36*5:GOSUB 1000 
1130 YC=YC+. 6B*5:XC=XC+1.19*5:5 
=843:C=C+1: RETURN 


Esse programa é baseado na curva 
floco de neve, originalmente desenhada 
por Von Koch. A figura criada se asse- 
melha a um cristal de gelo em um floco 
de neve ou a uma ilha com litoral mui- 
to recortado. A linha 20 especifica um 
triângulo equilátero (seus ângulos me- 
dem 60 graus e os lados são iguais) com 
um fator de escala definido em S2. A li- 
nha 30 define as primeiras coordenadas 
X e Y do centro, um fator de escala ini- 
cial e a cor do primeiro desenho (exceto 
no Apple). A linha 50 chama a sub-ro- 
tina que desenha a estrela de seis pon- 
tas que compõe a figura. 


SIMETRIA E ASSIMETRIA 





Apesar da irregularidade do desenho, 
a simetria está presente na forma da es- 
trela. Como ocorre com frequência na 











natureza, a ordem e o caos se combinam 
nessa figura. Porém, muitas estruturas 
simuladas pela técnica fractal são total- 
mente assimétricas. E o caso das curvas 
de um rio, das crateras da Lua, das veias 
e artérias do corpo humano e do con- 
torno das montanhas. O que distingue 
essas estruturas das formas simétricas 
geradas matematicamente são os ele- 


mentos aleatórios que entram em sua 
composição. Podemos simular tais ele- 
mentos no computador por meio da 
função RND. O programa que se segue 
gera a imagem de uma montanha: 


10 BORDER O: PAPER O: 
BRIGHT 1: CLS 


INK 7: 





MODELOS DE SIMETRIA 


PROGRAMA DO FLOCO DE NEVE 


“FORMAS ASSIMÉTRICAS 
UMA MONTANHA NO MICRO 
GERADOR DE FIGURAS 





A técnica dos fractais é responsável 

pelas mais perfeitas imagens de formas 
naturais simuladas no computador. 

A construção de uma imagem complexa 
como a escarpa nevada desta página 

só é possível em computadores 

gráficos de maior porte. Porém, a mesma 
técnica pode ser utilizada em micros 
domésticos, com resultado semelhante 

ao mostrado na ilustração do alto. 








| 
| 
| 


15 PRINT AT 6,2; INVERSE 1;" 
GERADOR DE MONTANHA FRACTAL " 
20 DIM C(200,2,2): LET F=l: 
LET G=2: LET C(1,1,2)=25: LET 
C(ll,1,1)=0 

22 INPUT "DIGITE 'RESOLUCAO' 

DA MONTANHA [16-100] ? ";8 
23 IF S<l6 OR 5>100 THEN 

GOTO 22 

24 INPUT "DIGITE GRAU DE 

OSIDADE'[1-5]7";RG 

25 TF RGc<l OR RG>5 THEN coTo 
24 

26 DEF EN B(X)=BG-((RND*X)*(2 

*RG)) 

27 PAPER 1: CLS 

30 LET L=21:0/8: LET H=L / (SQR 
3) 

40 FOR K=1 TO S+l: LET C(K,1, 

1)=€C(1,1,1)+L*K-FN R(1): LET 

C(kK,1,2)=C(K-1,1,2)-EN R(1): 

NEXT K 

50 FOR J=1 TO S: FOR K=1 TO 5 

=J+1 

60 LET C(K,6,1)=EN R(I)+(CIK, 

F,1)+C(K+1,F,1))/2 

70 LET C(K,G,2)=FN RlI)+H+H(CI 

K,.F,2)+C(K+1,F,2))/2 

BO PLOT C(K,E,1),CIK,F,2): 

DRAW C(K+1,F,1)-PEEK 23677,€l 

90 DRAW C(K,G,1)-PEEK 23677,€ 
(K,6G,2)-PEEK 23678: DRAW C(K, 

F,1)-PEEK 23677,C(K,F,2)-PEEK 

23678 


"BUG 


100 NEXT K: LET F=3-F: LET G=3 
-=F: NEXT J 

110 FOR y=40 TO O STEP -.75 
120 PLOT 0,y 

130 FOR n=1 TO 100 

140 LET a=RND*10 

150 LET b=5-AND+*10 

160 IF a+PEEK 23677>255 THEN 
LET n=100: DRAW 255-PEEK 29677 
170 TF (PEEK 23678) +b<0 THEN 


GOTO 150 
180 DRAW a,b 


190 NEXT nm 

200 NEXT y 

210 FOR m=USA "a” TO USAR "a"+7 
READ a: POKE m,a: NEXT m 


220 DATA 16,56,84,16,56,84,146 
«16 

230 FOR n=1 TO 80 

240 PRINT AT 17+INT (RND*4), 

RND*31: BRIGHT 1; PAPER 4; 

INVENSE 1;CHRS 144; 

250 NEXT n 
Z60 PRINT dl; 
" RES=";5;* 


270 GOTO 270 


10 PMODE 4,1:PCLS:SCREEN 1,1 


20 DIM C(200,1,1):F=0:G=1:C(0,0 
,1)=150:C(0,0,0)=10 


INVERSE 1;AT 0,4 
RUGOSIDADE="; RG 


30 8=80:L=230/5:H=L/SQR(3) :DEFF 


NR (X) =3-RND(0)*6 
40 FOR K=1] TO S:C(kK,0,0)=C(0,0, 
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0)+L*K-FNR (0) :C(K,0,1)=C(K-1,0, 
1)-FNR(0) :NEXT 

50 FOR J=1 TO S:FOR K=0 TO 5-J 

60 C(K,6,0)=ENR(O)+(C(K,F,0)+C( 
K+1,F,0))/2 qi 

70 C(K,G,1)=FNR(0)-H+(C(K,F,1)+ 
C(K+1,F,1))/2 

80 LINE (C(K,F,0),C(K,F,1))-(C( 
90 LINE -(C(K,6,0), po G,1)),PS 
ET:LINE-(C(K,EF, 0) ,C(K,E 11)) , PSE 
4 

100 NEXT:F=1-F:G=1-F:NEXT 

110 GOTO 110 

10  HGR2. 

20 DIM c(200, EA: F = 0:G = 1: 
C(0,0,1) = 150:C0(0,0,0) = 10 

30 8 = 60:L = 230 / 8:H = | / 
SQR (3): DEF FN R(X) = 3 - 

E ES | 

40 FORK=1 TOS:C(K,0,0) = 
(0,0,0) + L * K- FNR(O):C(K, 


DE) e CIR - 1,0,1) - FN R(ODE 
NEXT 

50 FOR J=1 TOS: FORK =0T 
08 -)y 


60 C(K,6,0) = EN R(0) + (C(K,F 
ORE 1,F,0)) / 2 

70 C(K,6,1) = FNR(O) - H + 
(K.F,dl) + CIK + 1,F,1)) £ 2 
80 HPLOT C(K,F,0),C(K,F,1) TO 
C(K + 1,F,0),C(K + 1,F,1) - 
90 HPLOT TO C(K,G,0),C(K,6,1) 
* HPLOT TO C(K,F,0).C(K,F,1) 
100 NEXT :F =1-F;iG=1-F: 
NEXT 

110 GoTo 110 


(Cc. 


di 


Di ll MIN 


II E: Nu | ' sim mil It Pl RM nm 
a am ds a, is jl 
a ane E 





10 SCREEN 2 

20 DIM C(200,1,1):F=0:G=1:C(0,0 
,1)=150:€C(0,0,0)=10 

30 5=80:L=230/S:H=L/SQR(3) : DEFF 
NR (X)=3-RND(1)*6 

40 FOR K=1 TO S:C(K,0,0)=C(0,0, 
0) +L*K-FNR(0) :C(K,0,1)=C(K-1,0, 
1)-FNR(0) :NEXT 

50 FOR J=1 TO S:FOR K=0 TO S8-J. 
60 C(K,6G,0)=FNR(O)+(C(K,F,0)+C( 
K+1,F,0))/2 

70 C(K,G,1)=ENR(0)-H+(C(K,E,1)+ 
C(K+1,F,1))/2 

BO LINE(CIK,F.0),C(K,.F,1))-(CIK 
+), F,0) C(K+1,F,1)) 

90 LINE-(C(K,6,0) [C(K,6,1)) :LIN 
E-(CIK,F,0),C(K,F,1)) 

100 NEXT:F=1-F:G=1-F:NEXT 

110 GOTO 110 


A linha 30 define o fator de escala 
dos triângulos e especifica o comprimen- 
to e a altura de um lado. A linha 40 
preenche duas matrizes com as coorde- 
nadas iniciais de cada triângulo. Obser- 
ve que há um fator aleatório — portan- 
to, os valores irão variar em um peque- 
no intervalo a cada execução do progra- 
ma. A linha 50 inicializa dois laços: um 
para desenhar os triângulos horizontal- 
mente na tela, e outro para colocá-los 
mais acima. 

O vértice de cada triângulo é especi- 
ficado nas linhas 60 (coordenada X) e 
70 (coordenada Y). A linha 80 move o 
cursor para O canto esquerdo do triân- 




























ci hs 
TNT 


gulo e desenha sua base. No programa - 165 PREN É | 590 FOR E=1 TO JM 
para o Spectrum, os PEEK ubttados f [F F=0 OR AS="Nº THEN 595 IF P=1 THEN LET E=JM 
das coordenadas asseguram que os pon- 3 230 NEXT E: RETURN 
tos não caiam fora da tela, o que pro- 180. FOR K=2 TO CU+1 600 LET TX=X(P): LET Ty= Y(p) 
vocaria uma interrupção do programa ed E do cer repen( OI0 LET BX=X(P-I): LET By=y(p- 
ao se tentar executar O DRAW: Na Redes ea dn e ME 

tea | K EM | 
e > depois men 0 can- 220 RETURN 
). A linha 100 com- 230 INPUT "No DE VERTICES ”:VT 
» Este desenha uma 240 FOR L=2 TO VT+I : 
, após redefinir al- 250 INPUT "VERTICE ";(L=1);"=" | 
KH aneira a deslocar | CRY L ET p=P+1 
> mais para cima, re- 260 LET T(L)=X*85: LET U(L)=y* NEXT 
rução da montanha. Na 85 






























































* DX=TxX-BX: LET DY=TY-BY 
F=2 TO GN+1 


| | NA e; ES LET X(P)=TX: LET Y(P)=TY 
versão a O Spectrum, o programa €70 LF Led THEN PLOF INT (127 DP LET JICL)=E: LET CL=CL+H: 


q ip j +T(L)), INT (85+U(L)) COSUB 500: LET CL=CL-l: LET E= 
comple a a figura desenhando “árvo- 55 Tere»? THEN DRAW 127+T(L ter) pias" 
res” na base da montanha. Jc 



























)-PEEK 23677, 85+U(L)-PEEK 700 NEXT E 
a EE. <> 710 LET N=N-1 
FORMAS VARIADAS o J 720 RETURN 
ORMAS VARIADA Sec |] JRINT "CURVA FECHADA (S/N) 





AS=INKEYS: IF AS<D"N” Es 


Maori você pet obter muitas ima- A e THEN GOTO 300 10 DIM X(50),Y(50),XT(50),YT! 
gens diferentes. Mas, lembre-se, essa va- 3 As ),RG(20) , YG(20) ,J (50) 
n lação atinge apenas O tamanho, a Rea "Nº THEN LET CV=VT: 20 'PMODE 4,1:COLOR 0,1:PCLS:CLS 


3: RETURN 30 GoSUB 140 id 
3 | CV=VT+: LET T(CU+1)=T 40 GOSUB 350 
to 30 DRAW 127+T(CU)-PEEK 23677, AO -";NR:NR=INT(NR): Rare: 
à Iatiodiiça uma rc inicial, cons- BS+4U (CV) -PEEK 23678 N 50 e 
iruindo, à partir dela, uma figura frac- 340 RETURN Ês 60 F=1:N=0:PCLS:SCREEN 1,0 

. O grande número de sub-rotinas re- 350 CLS : IF F=0 THEN Goro | 70 LINE -(127+X(P),96-Y (P)).PRE 
“cursivas pode ser um problema no Ap- 380 ira “aa 1 
ple — esse micro sÓ admite que uma 360 PRINT "MESMO GERADO MA S/N) Ti Bo | GOSUB 500:IF P>0 THEN 80 


sição e outros aim mas não a for- 














sub-rotina seja chamada por elamesma * Na a Ne 90 AS=INKEYS:IF AS="" THEN 90 
24 vezes. Por isso deve-seter cuidado ao 2/0 LET ASSINKEYS: IF. sei CLS:PRINT"S PARA SAIR, QUAL 
escolher o nível de recursão. e a O 370 QUER OUTRA TECLA PARA CONTI 


O AS=INKEYS:IF AS="" THEN no 


380 IF F=0 OR DO puEn | 
| 1 o AS<>"S” THEN 20 


GOSUB 400 

y 390 RETURN 13 
LET 400 INPUT "No DE VERTICES 140 IE F=0 THEN 170 
| ERADOR NAO INCLUINDO AS EXTR 150 PRINT"MESMA FORMA INICIAL ( 

y (100): EMIDADES (0,0) E (1,0) ";6N- S/N)?" ; 3 
IM VC 420 PLOT INVERSE 1; OVER 1;85 160 AS=INKEYS:IF AS<>"S” AND AS | 
0) 85 <>"N” THEN 160 ELSE PRINT AT AS | 
























NK 0: 430 FOR M=2 TO GN+1 170 IF F=0 OR AS="N” GOSUB 230 
440 INPUT "VERTICE ";(M-1)sr=” 180 FOR K=1 TO CV 
E 190 P=k-1 
Ed 450 IF ABS (INT (X))>1 OR ABS 200 X(P)=KT(K):Y (P) 
é mi DE REC (INT (Y))>1L THEN GOTO 440 210 | 
URSÃO ";NR: IF ABS (INT (NR)) AGU LET V(M)=K: LET W(M)=Y:. 220 
<1l THEN GOTO 50 LET X=X*B5+85: LET Y=85+Y*85: 230 Pt 
60 LET F=1: LET N=0: “CLS DRAW X- PEEK 23677,Y-PEEK 23678 ME INIC' 
*  INVERSE 1; OVER 1; 470 NEXT. ER '<1 THEN 2 
PD, INT (B5+Y(P)) | 17 5-PEEK 230772,85-= 240 FOR L 
O "TED THEN RE PAUSE 0 = | RINT 


A 


S:4 IF AgS=" ar 






EN GOSUB 570 





; PARA SATR. QUA 510 REM A A EN: LINE 

ONTINUAR" 520 + Oo |, 96-YT(L)), PRESET ELSE LINE a 
Sr As="o à Ra ERG =P-1 127+XT(L),96-YT(L)), PSET 
[1] E à | 3 


















































gr q ABS P)>I2 :7 'oR ABS Y(P ZB0 NEXT 

N Goro 25 1>85 THEN. GOrO 560 290 PRINT"CURVA FECHADA (S/N) 
130 ST( 550 DRAW 127+X(P)-PEEK 23677, 300 AS=INKEYS:IF AS<>"N” ANDA 
140) EE F=0 THEN q 85+Y (P) -PEEK 23678. à <>"8" THEN 300 ELSE PRINT 5 
50 PRINT "MESMA 


310 TF AS="N” THENCV=VT 
30: RETURN 
320 EUA LRP LOU) mxT RÃ: vT (CV) 
=YT(1) a À - 


— foée! .. rei 


— 560 NEXT W: RETURN 
- 570 LET N=N+1 
580 IF N=1. h 


(8/8) 2 
160 HEN LET JM 
585 TF N£>1. THEN LET 


) LET AS=INKEYS 



















ma 


| R 





“60 


E INTÉ (NR): 

"“6QF = 
ZO HCoLoR= 3: 
1960= Y(P) 





o! F 
! 4 = 
| 
| 
dr é : = = ] d 





330 LINE-(127+XT (CU), 
| PSET:GOSUB 730 

340 RETURN 

350 PCLS:IF F=0 THEN 380 

360 PRINT"MESMO GERADOR (S/N) 2? 


96-YT(CV)) 


370 AS=INKEYS:IF AS<>"S” AND AS 
<>"N” THEN 370 ELSE PRINT AS 


380 IF F=0 OR AS="N” GOSUB 400 
390 RETURN 

400 PRINT"NO.DE VERTICES NO GER 
ADOR” 


410 INPUT"NAO INCLUINDO AS EXTR 
EMIDADES (0,0) E (1,0) = ";GN 
:GN=INT(GN):IF GN<1 THEN 410. - 
420 DRAW"BM80,96" 

430 FOR M=1 TO GN 

440 PRINT "VERTICE ";M; 
DOR ";:INPUT "- ";X,Y 
450 IF ABS(X)>1 OR ABS(Y)>1I THE 
N 440 

460 XG(M)=X:YG(M)=Y:X=X*95+80:Y 
=96-Y*95:LINE-(X,Y), PSET 

470 NEXT 

480 LINE-(175,96),PSET:GOSUB 73 
0 

490 RETURN 

500 IF NR=N GOSUB 520 ELSE GOSU 
B 570 

510 RETURN 

520 FOR L=1 TO GN+1 

530 P=P-1 

540 IF ABS(X(P))>127 OR ABS(Y(P 
))>95 THEN 560 

550 LINE-(127+X(P),96-Y(P)) 
T 

560 NEXT: 
570 N=N+1 
580 IF N=1 THEN JM=CV-1 ELSE JM 
=GN+1 

590 FOR J=1 TO JM 

600 TX=X(P):TY=Y(P) 

610 BX=X(P-1):BY=Y(P-1) 

620 DX=TK-BX:DY=TY-BY 

630 FOR E=1 TO GN 

640 X(P)=DX*KG(E) -DY*YG (E) +BX 
650 Y(P)=DY*XG (E)+DX*YG (E) +BY 
660 P=P+1 

NEXT 

680 X(P)=TX:Y(P)=TY 

690 J(CL)=J:CL=CL+I:GOSUB 500:€ 
L=CL-l:J=J(CL) 

“700 NEKT J 

“710 N=N-1 

“720 RETURN 

730 AS=INKEYS: SCREEN 1,0:K=1000 


"DO GERA 


| PSE 


RETURN 


“740 K=K-1:IF K>O0 AND INKEYS="" 


THEN 740 
750 RETURN 


“E 
EIS) 


5» HOME 

10 DIM X(50),7(50).XT(1O),YT(1 
0). KG (20) ye (20), J(5O0) 

30 -GOSUB 140 

40 GOSURB 350 

50 TEXT HOME : INPUT "QUANTO 
S NIVEIS DE RECURSAO ";NR:NR = 
IF NR <1 THEN 50 
I:N = 04 .HGR2 

HPLOT 127 + X(P) 


80 GOSUB 500: IF P > O THEN 80 

90 GET AS 

100 TEXT : HOME : PRINT "<S> P 

ARA SAIR E QUALQUER OUTRA PARA 

CON=TINUAR” 

110 GET AS 

120 TF AS < > "S8” THEN GJ30 

130 HOME : END 

140 IF E = O THEN 170 

150 TEXT : HOME PRINT "MESMA 
FORMA INICIAL?(S/N)"; 

160 GET AS: IF AS < > "S” AND 
AS < > "N” THEN 160 

165 PRINT AS 

120 IF EF = Q0/0R AS = "Nº THEN 
GOSUB: 230 

180. FOR K = 1 TO CV 

190 P=kK - 1 

200 X(P) = XT(KJ:Y(P) = YT(K) 
210 NEXT | 

220 RETURN «A E 

230 - INPUT "QTOS. VERTICES NA F 

ORMA INICIAL ";VT:VT = INT (VT 
)2 IP-VT < 1 THEN 230 

240 PRON T'= 1 TO WP ] 
250 PRINT "VERTICE ";L;: INPUT 
nO PL ave IF ARS AX) 2 JOR 


ABS (Y) > 1 THEN 250 

260 NTIL) MH * 95:YT(L) = TX 
95 

265 NEXT 


270 PRINT "CURVA FECHADA (S/N) 
am. 

280 GET AS: IF AS < > "Nº AND 
AS < > "8" THEN 280 

285 PRINT AS: FOR T = 1 TO 300 
- NEXT : HGRZ 

290 FOR L =1TOVT 


300 IF L = 1 THEN HCOLOR=ÕõBI: 
HPLOT 127 + XT(L)J,Ç96 = YT(L) 


OS VERTICES NO GERADOR NÃO INCL 
UIN-DO AS EXTREMIDADES (0,0) E 


302 IF L <o> 1 THEN HCOLOR= 
3: HPLOT TO 127 + RT(L),96 —- 
T(L) 

307 NEXT nr: 

310 IF AS =o"N”º THEN CU = VT: 

GOSUB 730: RETURN 

320 CU = VT + 1EXT(CV) = XT(I): 
YT(CV) = YT(1) 

330 HPLOT TO 127 + KT(CV),96 
= YT(CVU): GOSUB 730 

340 RETURN 

350 TF F = 0 E 380 

360 TEXT HOME : PRINT “MESMO 
GERADOR? (S/N)”; | 

370 GET AS: IF AS < o» PS" AND: 
as < 5 em THEN 470 

375 PRINT AS a e, 

380 IF F=0 ORAS = "N" THEN 
GOSUB 400 | 

390 RETURN 

400 TEXT HOME INPUT "QUANT 


(1,0)  TiGN | v < 
410 GN = INT (GN): TE GN Ss 1T 
HEN 400 À | 
430 FORM = 1 Toc à 
440 PRINT "VERTICE ";M;" DO GE 


RADOR" ; ":XG(M), YG(M 
) 

aS0 IF ABS (XG(M)) 
S (YG(M)) > 1 THEN 440 


455 NEXT 


INPUT " - 


> 1 OR AB 


457 HGRZ2 : BCOLOR= 3º HPLOT 80 
,96 

458 FORM = 1 TOGN 

460 X = XG(M) * 95.,+ BD:Y = 96 


- YG(M) * 95: HPLOTP. TO X,Y 

470 NEXT 

480 HPLOT TO 175,96: GOSUB 73 

0 

490 RETURN 

500 IF NR = N THEN GOSUB 520 

505 «IF NR €< > N THEN GOSUB 5 

70 

510 RETURN 

520 FOR L=1TOGN+I1 

530 P=P- 1 

540 IF ABS (X(P)) > 127 OR A 

BS. (Y(P)) > 95 THEN 560 | 

550 HPLOT TO 127 + X(P),96 - 

EP) o a. 

560 NEXT : RETURN 

570 N=N+1 | 

580 IF N ='1 THENJMEcv-1 

5485 IF N< > 1 THEN JM = GN + 
1 

590“FOR J = 1 TO JM. 

600 TX = X(P):TY = Y(P) 

610 BX = X(P - 1):BY = Y(P = 1) 

620 DX = TX - BX:DY = TY - BY 

630 FOR E = 1 TOGN 

640 X(P) = DX * XG(E) - DY * YG 

(E) + BX 

650 Y(P) = DT * XG(E) + DX * YG 

(E) +. BY 

660 P=P+1 

670 NEXT E 

6B0 X(P) = TX:Y(P) = TY 

690 J(CL) = J:CL = CL+ 1: GOSU 

B 500:CL = CL - 1:J = J(CL) 

700 NEXT 3 

710 N=N-1 

730 FORT = 1 TO 1000: NEXT 

740 RETURN 

5 CLS 


10 DIM X(50),Y(50),XT(10),£LT(10 
3, XG (20), YG(20),J (50) 

20 SCREEN O 

30 GOSUB 140 

GOSUB 350 e 
SCREEN 0: INPUT "QUANTOS NIVE 
DE RECURSÃO ";NR:NB=INT(NR): 
NR<1 THEN 50 o 
F=1:N=0:SCREEN 2: 
LINE-(127+X(P),96-Y(P)), q 
GOSUB S500:ITF P>0O THEN BO 
AS=INKEVYS:IF AS=""THEN 90 


100 SCREEN O:PRINT"<S> PARA SAT 
R E QUALQUER OUTRA PARA CONTINU 
AR” 

110 AS=INKEYS:IF AS="" THEN 11( 
120 IF AS<>"S” THEN 20 

130 CLS: END 


LF F=0 THEN 170 
150 SCREEN O:PRINT"MESMA FORMA 


INICIAL?(5S/N)”; 


160 AS=INKEYS:IF AS<>2"5” AND AS 


€>PN” THEN 160 ELSE PRINT AS 
170 IF F=0 OR AS="N” THEN GOSUB 
230 

180 FOR K=1 TO CV 





a E ota 


e o] 


: 














190 P=K-l 

200 X(P)=KT(K):L(P)=YTIR) 

210 NEXT 

220 RETURN 

230 INPUT "OTOS. VERTICES NA FO 
RMA INICIALC;VT:VT=INTIVT):TF MV 
T<l THEN 230 

240 FOR L=1 TO VT 

250 PRINT "VERTICE ";L;: INPUT” 
-= "1H, f:IF ABS(X)>21] OR ABS(T) 2] 
THEN 250 * 


260 XT(L)=X*95:YT(L)=Y*95 
265 NEXT 
270 PRINT"CURVA FECHADA (S/N) ? 


280 AS=TNKEYS: IFASS2"N” AND AS< 
2"8" THEN 280 ELSE PRINT AS:FOR 
T=1 TO 300:NEXT 

290 SCREEN 2Z:FOR L=1. TO NT 

300 IF L=1 THEN LINE - [12/+KT(L 
) ,96-YT(L)),4 ELSE LINE -(127+X 

TIL) ,96-YT4L7),11 

305 NEXT 

310 IF AS-="Nº 
730: RETURN 


320 CU=VT+IL:XT(CV)=XT(1L) -TTCEV) 

=YT(1) 

330 LINE -(127+KT (CV) ,96-YT (CU) 
|, 11:GOSUB 7/30 

340 RETURN 

350 TE F=0 THEN 380 

360 SCREEN O: PRINTCMESMO GERADO 

RP (S/N)”; 

370 AS=INKEYS: IF AS<>"S” AND AS 
“2"N'º THEN 370 ELSE PRINT AS 
380 IF F=0 OR AS="N”" THEN GOSUB 
400 

390. RETURN 

400 INPUT"QUANTOS VERTICES NO G 
ERADOR NÃO INCLUINDO AS EXTREMI 

DADES (0,0) E (1,0)”;GN 


THEN CV=VT:GOSUB 





410 
430 FOR M=1 
440 PRINT"VERTICE 


GN=INT(GN):IF GN<1l THEN 400 
TO GN 

"-M;* DO GERA 
DOR" ;: INPUT” - ";RXG(M),YG(M) 
450 IF ABS(X)>1 OR ABS(Y)>1 THE 
N 440 

455 NEXT 

457 SCREEN Z:PSET(B0,96),11 

458 FOR M=1 TO GN 

460 X=XG (M) *95+80:Y=96-YG (M) *95 
* LINE=AK EH) 

470 NEXT 

480 LINE-(175,96),11]:GOSUB 730 
490 RETURN 

500 IF NR=N THEN 
GOSUB 570 

5LO RETURN 

S20 FOR L=) TO GN+1 

530-PSP-1 

540 IJF ABS(X(P))>127 OR ABS(Y(P 
11295 THEN 560 
550-LINE-(127+K(P),96-Y(P)),11 
560 NEXT:RETUAN 


GOSUB 520 ELSE 


570 N=N+1 

580 IF/Ns THEN JM=CU-1 ELSE JM 
=GN+1 

590 FOR-J=1 TO JM 

600 TK=K(P):TY=Y(P) 

610 BX=X(P-1) :BY=Y(P-1) 

620 DX=TX=BX:DY=TY-BY 


630 
640 
650 


660 
670 


FOR E=1I TO GN 
X(P)=DK*XG (E) -DTATG (E) +BX 
T(P)=DYXXG [E) +DX*YVO (E) +BY 


P=P+1 

NEXT 

680 X(P)j=TX:T(P)=TY 

690 J(CL)=J:CL=CL+ILSGOSUB 500:€C 
L=CL=1 : J=J (CL) 

700 NEXT J 

710 N=N-1 

220 RETURN 


ea 





730 AS=INKEYS:K=1000 

40 K=K-1L:TF K>0 AND INKEYS="" 
THEN 740 

7580 RETURN 


Quando você executa O programa, a 
linha 230 pede omuúmero de vértices do 
desenho inicialoque irá gerar a figura 
fractal. Convém traçar essa figura pre- 
viamente em uma folha de papel. Mar- 
que dois pontos representando o inicio 
e ofim.da linhae una-os por meio de 
pequenas retas. Conte O número de can- 
tos e forneça esse dado ao computador: 
Não exagere no número de retas: 
lembre-se que você terá que especifi- 
car as coordenadas de cada vértice (li- 
nha 250)Estas devem ter valores com- 
preendidos-entre -l e 1. 

O laço entre as linhas 240 e 280 (240 
e 305 nas versões para o MSX e o Ap- 
ple) permite que você introduza as 
coordenadas e desenhe a forma inicial, 
determinando inclusive se sua figura se- 
rá fechada ou aberta (linha 290). 

Em seguida (linhas 400 a 490), o com- 
putador Solicita ao usuário a definição 


da-figura que substituirá cada linha re- 


ta do desenho inicial — essa figura é ge- 
ralmente chamada de gerador. Como 
você fez para a forma inicial, desenhe 
afigura e passe a informação para o 
computador. 

Finalmente, você deverá especificar 
o numero-de níveis derecursãosQuan- 
do esse valor é digitado, adinha 80 cha- 
ma a subsrotina que verifica seo pro- 


grama está rodando pela primeira vez. 


Em caso afirmativo, o programa-é des- 
viado para à rotina principal (linha 570 
à 720), que desenha a figura fractal. Se 
o programa já estava sendo rodado, o 
computador dá-ao usuário a chance de 
redefinir O gerador. 


TESTE 


Para experimentar o programa, digite 
o valor 3 para o número de vértices da 
forma inicial. Em seguida, introduza as 
coordenadas -0,5 e 0,2 para o vértice |; 
O e 0.4 para o vértice 2; 0.5 e 0.2 para 
o vértice 3. Ao responder N à pergunta 
“CURVA FECHADA?", aparecerá na 
tela um triângulo sem base. Como foi 
feito para a forma inicial, entre 3 para 
o número de vértices do gerador e defi- 
na as coordenadas: 0.2 e O para o vérti- 
ce 1; 0.4 e 0.8 para o vértice 2: 0.6 e 0 
para o vértice 3. Esses dados definem a 
imagem de um triângulo sem base sobre 
uma linha. Por fim, introduza o valor 
5 para o nível de recursão (3 para o Ap- 
ple) e observe a geração da figura , 
fractal. 












BITS E BYTES 
EM BASIC 


O byte é a unidade básica de memória 
usada em microcomputadores. Os diver- 
sos comandos da linguagem BASIC tra- 
tam o byte como a unidade minima de in- 
formação: os caracteres individuais de 
uma cadeia alfanumérica, por exemplo, 
podem ser isolados e processados indivi- 
dualmente com comandos do tipo MIDS, 
LEFTS, RIGHTS, LEFTSS$, CHRS, ASC 
etc. Cada caractere ocupa um byte. Os va- 
lores numéricos, por sua vez, em geral 
ocupam dois ou mais bytes, dependen- 
do de sua precisão (sobre a armazenagem 
de números, veja o artigo da página 894). 
Usando os comandos VARPTR, PEEK 
e POKE, temos acesso individual aos 
bytes onde variáveis, vídeo, teclado etc. 
estão armazenados. 


Existe, porém, uma unidade de infor- 
mação menor que o byte. Essa unidade 
é o bit (binaryv digit, ou digito binário, 
em inglês), que corresponde aos dígitos 
O e 1 que todo computador digital usa 
como base de representação numérica. 
Cada byte tem oito bits, numerados de 
O (o bit menos significativo) a 7 (o bit 
mais significativo). 

Muitas vezes, surge a necessidade de 
manipular diretamente os bits da memó- 
ria. Para isso, convém utilizar uma ro- 
tina em linguagem de máquina, que tem 
comandos específicos para o acesso e a 





manipulação de bits individuais e é mais. 


rápida que qualquer rotina em lingua- 
gem de alto nível. 

Entretanto, poucos sabem que é per- 
feitamente possível realizar manipula- 
ções diretas de bits com os comandos já 
existentes no BASIC. Não é tão rápido 
nem tão direto quanto em linguagem de 
máquina, mas funciona bem. 

Neste artigo, você aprenderá vários 
truques que permitem a manipulação de 
bits em quase todos os microcomputa- 
dores. Os comandos do BASIC mais re- 
levantes para esse fim são o CHRS, o 
ASC (ou CODE, no ZX-81) e os opera- 
dores lógicos AND, NOT e OR. 

Com as funções CHRS$ e POKE, po- 
demos criar bytes com uma determina- 


E 


da configuração de bits. CHRS$ é 


| utilizada no trabalho com variáveis sim- 


bólicas dentro de um programa em BA- 
SIC; POKE nos dá acesso direto às 
locações absolutas da memória RAM. 

CHRS$S(1), por exemplo, define um 
byte com o bit menos significativo igua- 
lado a 1, e todos os outros igualados a 
O: 0000001 em binário. CHRS$(2) gera 
um byte com os dois bits menos signifi- 
cativos igualados a 1: 00000011. 
CHRS$(3) define o byte 00000010 e as- 
sim por diante. Com o auxílio de uma 
tabela de correspondência entre núme- 
ros decimais de O a 255 e os binários 
equivalentes, pode-se produzir qualquer 
padrão de bits ligados e desligados. 

Para converter o padrão de bits em 
um número decimal, devemos conside- 
rar cada bit como o índice de uma po- 
tência de 2 e somar o resultado. Supo- 
nhamos um byte com os bits 0,3 e 4 
ligados: 


00001101 
O número decimal correspondente é: 


+27 +2=16+8+1=25 
Eis algumas expressões úteis para li- 


gar ou desligar só o bit B de um byte ar- 
mazenado em um caractere B$: 


Para ligar: 
B$=CHAS (CODE (BS) OR 2**B) 


Para desligar: 
B$=CHRS (CODE (B$) AND NOT 2**B) 


Para ligar: 
BS=CHRS (ASC(BS) OR 2Z**B) 
Para desligar: 


BS=CHRS (ASC (BS) AND NOT 2**B) 


Para ligar: 
BS=CHRS (ASC(BS) OR 2Z1B8) 


À manipulação dos bits individuais de um 
byte de memória por meio de comandos 
do BASIC parece uma tarefa impossível. 
Mas não é: aprenda os truques de | 
programação necessários para isso. 


Para desligar: 


B$=CHRS (ASC(B$) AND NOT 278%) 


Day Lab] Lo] 


Para ligar: 
BS$=CHAS (ASC(BS) OR 2"7Bt) 
Para desligar: 
B5S=CHRS (ASC(BS) AND NOT 2" Bt) 


Observe que, com exceção dos mi- 
cros da linha Sinclair, que não têm va- 
riáveis inteiras, usamos a notação B% 
para indicar que esse valor deve ser in- 
teiro. Isso ajuda a evitar erros de cál- 
culo, caso B seja um bit real de preci- 
são simples. 

Para tornar o bit B de um byte igual 
a 1, usamos o operador lógico OR. Su- 
ponhamos que você queira igualar a | 
O bit número 7 (o mais significativo) de 
um byte igual a 00001011. Teremos, en- 
tão, a operação, em decimal: 


25 OR 2' = 25 OR 128 


o que, em binário, da: 


00001011 OR 
10000000 


10001011 


Note que OR tem o efeito de operar 
individualmente sobre cada par de bits 
na mesma posição, nos operandos, de 
acordo com o seguinte esquema: 


O OR O 
1 OR 0 
O OR 1 
1 OR 1 


Ô 
1 
1 
1 


Para colocar O em um bit qualquer 
do byte B$, usamos a operação AND 
NOT. De fato: 


O AND NOT O = O AND 1 =0 
1 AND NOT O = 1 AND 1 =1 
O AND NOT 1 = O ANDO = 0 
1 AND NOT 1 = 1 ANDO =O0 


pois a operação NOT transforma um bit 
O em 1 e vice-versa, equivalendo, por- 
tanto, a uma inversão do bit. 

Se você quisesse transformar o biná- 


— e —— 














rio 10001011 em 00001011, igualando o 
bit 7 a O, teria: 

10001011 AND 
NOT 10000000 


que é a mesma coisa que: 


10001011 AND 
01111111 


00001011 


Pode ser que, em vez de trabalhar 
com bytes armazenados em caracteres li- 
terais, você queira manipular os bits in- 
dividuais de um número inteiro — que, 
na maioria dos micros, é armazenado 
em dois bytes contíguos, em um total de 
dezesseis bits. Nesse caso, use as expres- 
sões apresentadas a seguir. Mas lembre- 
se de que alguns computadores, como 
o ZX-81, podem armazenar de forma 
diferente um número inteiro. 


Para ligar: 
It = It OR 21Bt 


Para desligar: 


It = It AND NOT 21Bt 


Da Lab) Ló] 


Para ligar: 
It = It OR 2"Bt 
Para desligar: 
It = I% AND NOT 2ºB% 


Essas expressões funcionam com um 
conjunto de dezesseis bits — ou seja, se 
quisermos ligar o bit 13 do byte 1%, fa- 
remos a operação: 


It = It OR Z "12 


ou 


1t = It OR 8192% 

A expressão AND NOT desliga o 
B-ésimo bit de 1%, 

Os micros ZX-81 e Spectrum não po- 
dem utilizar essas expressões, já que não 


têm variáveis inteiras. Todos os outros. 


a e a 


— BITS E BYTES 
MUDANDO UM BIT 
BITS EM STRINGS 
E EM NÚMEROS 

COMBINAÇÃO DE BITS 





micros podem, pois trabalham com a 
versão microsoft do BASIC. 


COMBINAÇÃO DE BITS 





E possível ligar uma combinação de 
bits em uma variável literal ou inteira. 
Para isso, usa-se uma expressão de so- 
ma dos expoentes de 2 correspondentes 
a cada bit a ser ligado, combinados por 
operações OR. Para ligar os bits 3 e 5 
do byte em TS$, faça: 


TS = CHR$S((2"*3) OR (2**5)) 


TS = CHR$((213) OR (2715)) 
Cao 
TS = CHRS$((2"3) OR 


| TESTANDO OS BITS 


Da mesma forma que podemos ligar 
ou desligar bits individuais em lingua- 
gem BASIC, é bastante fácil examinar 
o valor desses bits, através de uma ex- 
pressão simples: 


R = CODE (BS) AND 2*xB 


R = ASC (BS) AND 2*xB 


R$ = ASC(BS) 


VE 53) 


AND 27B&% 
ou 


Rê = I& AND 21Bt 


a LEITURA DEUMBIT 
E | OPERADORES AND, OR e NOT 
= BITS INDICADORES 
E PROGRAMA DE DEMONSTRAÇÃO 


APLICAÇÕES 


Day Lab [có] 
R$ = ASC(BS) AND 2"B&t 
ou 


Rê = It AND I"B& 


A operação AND isola apenas o va- 
lor do bit mascarado pelo byte igual a 


2B. Por exemplo: qual é o valor do bit 
número 6 do byte 01001011? 


01001011 AND 


E a e e o O 


que equivale a 89 AND 64, cujo resul- 
tado é 64 em decimal. 

Como o número resultante dessa ope- 
ração é maior do que 0, o resultado é 
verdadeiro. Se fosse igual a 0, teríamos 
então um resultado falso. 

Para transformar o resultado R em 
valor 1, fazemos: 


Rt = ABS(R$>(2 1 Bt - 1)) 
Em nosso exemplo, isso daria: 
ABS (64>63) = 1 
Se R% fosse O, teríamos: 
ABS (0>63) = 0 


Eis aqui um programa para testar to- 
dos os bits de um byte de entrada: 


110 PRINT "ENTRE UM NUMERO EN- 
TRE O E 255) 

120 INPUT N 

130 LET NS=CHRS (N) 

140 FOR 1I=0 TO 7 

150 PRINT CBIT 4 = S&S; 

160 LET C=ASC(N$) AND 2** 

170 IF €C THEN PRINT “SIM” 

180 IF NOT C THEN PRINT “NAO” 
190 NEXT I 


O programa para o ZX-81 é o mes- 
mo do Spectrum, com esta alteração: 


160 LET C=CODE (NS) AND 2**I 














110 PRINT "ENTRE UM NUMERO EN- 
TRE O E 255) 

120 INPUT nt 

130 NS$=CHAS (Nt) 

140 FOR It=0 TO 7 

10 PRINT CBIT PiIt;" = "5 

160 C3=ASC(NS) AND 21% 

170 IF Cê THEN PRINT "SIM" 

180 IF NOT C% THEN PRINT "NAO" 
190 NEXT I& 


Dry Lab) 


O programa para o MSX e o Apple 
é igual ao anterior, com a modificação: 


160 CI=ASC(NS) AND 271% 





MAPAS DE BITS 


Até agora, vimos como manipular os 
bits de um único byte ou conjunto de 
dois bytes. Como uma cadeia alfanumeé- 
rica contém até 255 caracteres, podemos 
manipular um conjunto muito maior de 
bits (um máximo de 8 x 255, ou 2040 
bits). Esse conjunto é chamado de ca- 
deia de mapeamento de bits (bit- 
mapstring), e tem muitas aplicações em 
Jogos, bancos de dados e outros progra- 
mas de caráter profissional. 

Por exemplo, é possível armazenar 
em uma cadeia desse tipo condições 
sim/não ou verdadeiro/falso. Se um bit 
em determinada posição dessa cadeia es- 
tiver ligado, temos uma condição sim, 
ou verdadeira; se estiver desligado, uma 
condição não, ou falsa. 

O comprimento da cadeia depende- 
rá do número de condições (flag bits ou 
bits indicadores) que queremos incluir. 
Se O número de condições for N, o nú- 
mero de bytes da cadeia será: 


L = INT(N/8B)+1 


Para inicializar um mapa M$, zera- 
mos todos os bits: 


4s CLS 
50 INPUT 
EIA ";n 
60 IF n>255 THEN GOTO 50 
70 FOR i=1 TO INT(n/8)+1 
80 LET m$=mS+CHRS (0) 

90 NEXT à 


TITLA 


45 CLS 


“NUMERO DE BITS NA CAD 


50 INPUT "NUMERO DE BITS NA CAD 
EIA ";N 

60 IF N>255 THEN 50 

70 MS=STRINGS (INT(N/8)+1,0) 


Para ligar, desligar e testar um bit 
qualquer do conjunto total de N, preci- 
saremos de algumas funções poderosas: 
FNLS, FNDS$ e FNTS. 

Essas funções são bastante comple- 
xas, mas muito rápidas. Procure anali- 
sá-las passo a passo para entender o que 
elas executam: 


20 DEF FNLS(B)=mS (TO INT(b/8)) 
+CHRS (ASC (mS (INT (b/8)+1)) OR 2 
** (D-INT (b/8)*8))+mS(INT(b/8)+2 
TO) 
30 DEF FNDS(b)=mS(TO INT(b/8)) 
+CHRS (ASC (mS (INT (B/8)+1)) AND 
NOT 2**(b-INT(b/8)*8))+mS (INT 
b/8)+2 TO) 
40 DEF ENT (b)=ABS ( (ASC (m$ (INT 
(b/8)+1)) AND 2** (b-INT(b/8)* 
B))<>0) 


20 DEF FNLS(B)=LEFTS (MS, INT (B/8 
) )J+CHRS (ASC (MIDS (MS, INT(B/8)+1, 
1)) OR Z7T(B-INT(B/8)*8))+MIDS(M 
S  INT(B/8)+2) 

30 DEF FNDS(B)=LEFTS (MS, INT(B/8 
) J+CHRS (ASC (MIDS (MS, INT (B/8)+1, 
1)) AND NOT 27(B-INT(B/8)*8B))+M 
IDS (MS, INT(B/8)+2) 

40 DEF FNT(B)=ABS( (ASC(MIDS (MS, 
INT(B/8)+1)) AND 21 (B-INT(B/8)* 
B))<>0) 


Por fim, acrescentamos o restante do 
programa de demonstração das funções 
de manipulação e consulta de bits: 


= TT 


200 PRINT "PROGRAMA DE DEMONSTR 
ACÇÃO DE MAPAS DE BITS” 

210 INPUT "(LJ IGA (D) ESLIGA 
ESTA (F) IM ";0PS 

230 IF OP$="F” THEN STOP 


(T) 


240 INPUT "NUMERO DO BIT (0 A" 
:N;7)":B 
260 IF B>N THEN GOTO 240 


270 IF 0P5="L” THEN MS=FNLS(B) 
280 IF 0P5="D”" THEN M5=FNDS (B) 
290 IF 0P$="T”" THEN PRINT “BIT 
"4B," = ": ENT(B) 

310 GoTo 210 





APLICAÇÕES 


Você não terá dificuldade em encon- 
trar aplicações para os truques explica- 
dos neste artipo. 


| 
| 
| | 








Qual é a vantagem de empregar ca- 
deias alfanuméricas, em vez de conjun- 
tos numéricos, para armazenar grupos 
de bits? 
| Como vimos no artigo Armazena- 
gem de Programas (página 1001), a ca- 
| deia alfanumérica é armazenada na me- 
| mória do microcomputador na forma de 
uma sequência contígua de bytes, ca- 
da qual ocupado por um caractere. O 
primeiro byte da sequência sempre in- 
dica o número de caracteres da variá- 
| vel literal (string). Esse número é “lido” 
por intermédio da função LEN, não ha- 
vendo, no BASIC (como ocorre em ou- 
tras liguagens), um byte encarregado 
de indicar ao interpretador onde termi- 
na o string. 

A vantagem de empregar cadeias al- 
fanuméricas decorre justamente desse 
sistema de armazenagem usado pelo 
interpretador BASIC. 

| A disposição sequencial dos bytes 
na memória facilita enormemente a 
programação de rotinas de acesso aos 
bits individuais de uma longa cadeia. 
Um string de trinta bytes, por exemplo, 
| equivale a uma cadeia ininterrupta de 
240 bits, que podem ser lidos ou mo- 
dificados um a um, ou em grupos que 
se sobreponham aos limites entre 
| bytes. Isso é muito mais dificil de ser 
feito quando a variável contém elemen- 
tos separados, como é o caso dos con- 
juntos numéricos. 


No desenvolvimento de jogos, por 
exemplo, a possibilidade de manipular 
bits amplia bastante as alternativas do 
programador. Entre outras coisas, vo- 
cê poderá modificar os gráficos impres- 
sos no video alterando diretamente as 
locações de memória, 

Os recursos de programação aqui 
examinados também serão úteis quan- 
do for necessário comprimir texto, em 
função de limitações da memória. Na sé- 
rie de artigos sobre o assunto, que ini- 
ciamos na página 1332, apresentamos 
diversos algoritmos interessantes para a 
redução do espaço ocupado por um tex- 
to em até 50%. A maioria desses algo- 
ritmos procura colocar dois ou mais có- 
digos de caracteres em um único byte. 
Como exercicio, tente implementar o su- 
percompressor baseado na estatística de 
pares de letras em um texto (veja os ar- 
tigos mencionados). 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





APLICAÇÕES 


O que é um editor musical. Como digitar as notas. 
Execução de melodias no teclado. Composição de peças. 


SOFTWARE 


Processadores de texto. Hardware necessário. Impressão. 


APLICAÇÕES 
Projeto arquitetônico computadorizado: complemento das 

listagens para os diferentes micros. Instruções. 

PROGRAMAÇÃO BASIC 
Formatação de telas. Rotina para entrada de dados. 

PROGRAMAÇÃO BASIC 

Desenho em perspectiva. Ponto de fuga e ponto 

de vista. Redução. Sombreamento. 


- E E . ” 





